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Datenbank  für 


jedermann 

Heimcomputer  lassen  sich 
theoretisch  für  eine  ganze 
Menge  nützlicher  Dinge  ver¬ 
wenden:  Die  Briefmarken¬ 
oder  eine  andere  Sammlung 
—  sei  es  nun  die  Bibliothek 
oder  der  Schallplattenbe¬ 
stand—  verwalten;  Ordnung 
in  die  vielen  Informationen 
bringen,  die  beispielsweise 
ein  Bauherr  braucht  und  so 
weiter.  Wer  sich  für  solche 
Projekte  interessierte,  stell¬ 
te  in  der  Vergangenheit 
schnell  fest,  daß  er  mit  ei¬ 
nem  Heimcomputer  nicht 
weit  kam:  Die  Leistung  reich¬ 
te  einfach  nicht.  Inzwischen 
ist  ein  Problem  behoben. 
Floppy-Laufwerke,  Vorraus¬ 
setzung  für  die  effiziente 
Verwaltung  größerer  Daten¬ 
mengen,  sind  für  viele  er¬ 
schwinglich  geworden. 
Auch  für  das  Softwarepro¬ 
blem  zeichnen  sich  jetzt  Lö¬ 
sungen  ab:  Mit  den  bislang 
verfügbaren,  relativ  simplen 
Dateiverwaltungsprogram¬ 
men.  Jetzt  kommen  für  den 
Commodore  64  eine  Reihe 
von  Programmen  auf  den 
Markt,  für  die  zwar  die  Be¬ 
zeichnung  »Datenbank«  et¬ 
was  hochgestochen  ist,  die 
aber  einer  neuen  »Genera¬ 
tion«  zuzuordnen  sind.  Die 
besten  dieser  Programme 
haben  wir  getestet  —  die  Be¬ 
richte  finden  Sie  in  dieser 
Ausgabe.  Die  Software  er¬ 
laubt  es  dem  Benutzer  eines 
billigen  Computersystems, 
Arbeiten  in  Angriff  zu  neh¬ 
men,  für  die  bislang  deutlich 
teurere  Anlagen  erforder¬ 
lich  waren.  Allerdings  wird 
jetzt  der  Ruf  nach  einem 
schnelleren  Floppy-Lauf- 
werk  noch  sehr  viel  lauter 
werden. 

Michael  Pauly,  Chefredakteur 
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konkurrierenden  Fernüber¬ 
tragungsmedien  (Wähl¬ 
oder  Standardleitungen, 
Datex-P)  anzusehen,  wobei 
Vorteile  wie  niedrige  Ge¬ 
bühren  und  vollständige 
Standardisierung  (einziges 
bis  jetzt  verwirklichtes  soge¬ 
nanntes  »offenes  Netz«)  ge¬ 
genüber  Anwendungsnach¬ 
teilen  wie  begrenztem  Kom¬ 
fort  und  damit  begrenzter 
Produktivität  oder  langsa¬ 
men  Datenaustausch  gegen¬ 
einander  abzuwägen  sind. 

Der  praktische  Nutzen  des 
Bildschirmtexts  wächst  in 
starkem  Maße,  wenn  ein  Mi¬ 
krocomputer  eingeschaltet 
wird.  Durch  die  »Intelligenz« 
des  Geräts  auf  der  Benutzer¬ 
seite  wird  erst  der  zweiseiti¬ 
ge  Austausch  von  Informa¬ 
tionen  und  Bearbeitungsan¬ 
weisungen  hinsichtlich  Ge¬ 
schwindigkeit  und  Aussage¬ 
kraft  in  die  Nähe  der  ande¬ 
ren  Datenfernübertragungs¬ 
medien  gerückt. 


mit  Commodore  64 

Bildschirmtext  wird, 
entgegen  manchen  anfänglichen  Kon¬ 
zepten  und  Strategien,  für  die 
nächsten  Jahre  mehr  als  zusätzliches 


Deshalb  stellen  die  Benut¬ 
zer  von  Personal-  und  Home¬ 
computern  einen  Sonderfall 
für  die  Btx-Durchsetzung  be¬ 
ziehungsweise  Akzeptanz 
dar:  Für  das  wichtigste  Zu¬ 
satzgerät  brauchen  sie  kein 
Geld  mehr  auszugeben.  So 
bezeichnete  ein  IBM- 
Sprecher  auf  dem  Online- 
Kongreß  im  Februar  in  Ber¬ 
lin  die  »Btx-Akzeptanz  als 
Abfallprodukt  des  wachsen¬ 
den  PC-Einsatzes«. 

Der  Marktführer  für  Mi¬ 
krocomputer  sowohl  im  pri¬ 
vaten  (Home-)  Bereich  wie 
im  geschäftlichen  (Personal 
Computer)  ist  Commodore 
wie  unter  anderem  das 
Marktforschungsunterneh¬ 


men  IDC,  Wiesbaden,  ermit¬ 
telte.  Um  dem  bisherigen 
Angebot  auf  dem  deutschen 
Markt  für  Btx-fähige  Mikro- 


CommodorE 


Die  Hamburger  Videothek 
Winterhude  bietet  einen  be¬ 
sonderen  Service:  Für  6C 
Mark  monatlich  kann  man 
dort  einen  Commodore  64 
mit  Kassettenrecorder  mie¬ 
ten,  für  120  Mark  gibt  es  statl 
dem  Reccrder  ein  Disketten¬ 
laufwerk  VC  1541  dazu.  Die 
entsprechende  Softwarg 
kann  man  ebenfalls  mieten 
Angeboten  werden  Pro 
gramme  aus  den  Bereicher 
Spiele,  Lernen  und  Unterhai 
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Medium  für  Daten¬ 
fernübertragung 
im  geschäftlichen 
Verkehr  als  für 
private  Zwecke  oder 
auch  die  Kommunikation 
zwischen  Anbietern  und  Konsumenten 
Durchsetzung  finden  — 
auch  mit  einem  Commodore  64. 
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Computer  auch  den  Niedrig¬ 
preisbereich  zu  erschlie¬ 
ßen,  hat  Commodore  auf  der 
Hannover  Messe  ’84  einen 


64  mieten 


tung  sowie  allgemeine  An¬ 
wendungen.  Alle  Program¬ 
me  kann  man  übrigens  — 
wenn  man  Gefallen  daran 
gefunden  hat  —  auch  einkau¬ 
fen.  Da  man  hierfür  jedoch 
im  Schnitt  die  sechsfache 
Leihgebühr  hinlegen  muß, 
dürfte  der  Verkaufserfolg 
sich  wohl  in  Grenzen  halten 
—  es  sei  denn,  in  Hamburg 
hätte  man  endlich  den  abso¬ 
luten  Kopierschutz  ent¬ 
wickelt.  (ev) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Btx-Anschluß  für  Commodo¬ 
re  64  vorgestellt,  das  ein¬ 
schließlich  einem  Disketten- 
Laufwerk  für  knapp  1400 
Mark  im  Handel  angeboten 
werden  soll.  Der  Btx-An¬ 
schluß  kostet  nur  noch  rund 
250  Mark  zusätzlich  (genaue 
Preise  sind  erst  nach  Markt¬ 
einführung  gemäß  den  Kal¬ 
kulationen  des  Handels  zu 
erfahren). 

Allerdings  braucht  man 
für  den  Anschluß  auch  noch 
ein  Farbfernsehgerät,  das 
mit  einem  sogenannten 
CEPT-Decoder  ausgestattet 
ist;  im  Handel  komplett  für 
knapp  3600  Mark  erhältlich. 

Der  neue  Btx-Anschluß 
zielt  auch  auf  die  Anwen¬ 


dung  im  Unternehmen.  Dies 
ist  vor  allem  unter  dem 
Aspekt  zu  sehen,  daß  Btx 
rechnerisch  besonders  gut 
dort  abschneidet,  wo  sehr 
viele  verstreute  Stationen 
angeschlossen  werden. 
Wenn  die  Kombination  von 
Btx  und  Computer  eine  zu 
hohe  Investition  erfordert, 
kann  der  Gebühren  vorteil 
gegenüber  anderen  Daten¬ 
fernverarbeitungsmedien 
verloren  gehen.  Die  neue 
Anschlußmöglichkeit  kann 
somit  ein  adäquates  Verhält¬ 
nis  von  Geräteinvestition 
und  Gebühren  herbeifüh¬ 
ren. 

Die  Kombination  von  Mi¬ 
krocomputer  und  Btx-Fern- 
seher  soll  in  diesem  Konzept 
vor  allem  die  Produktivität 
des  Arbeitsplatzes  erhöhen 


und  gleichzeitig  die  Gebüh¬ 
ren  senken.  Die  —  vergli¬ 
chen  mit  anderen  Daten¬ 
übertragungsmethoden  — 
teilweise  etwas  umständli¬ 
che  Abfrage  zum  großen 
Teil  vom  Commodore  64  au¬ 
tomatisiert  und  damit  we¬ 
sentlich  beschleunigt.  Au¬ 
ßerdem  können  die  Btx-Sei- 
ten  auf  Disk  zwischengespei¬ 
chert  und  »off-line«,  nämlich 
ohne  Verbindung  zum  Btx- 
Netzund  deshalb  auch,  ohne 
daß  der  Gebührenzähler 
läuft,  bearbeitet  werden. 
Damit  geschieht  das  Ausfül¬ 
len  der  Btx-Antwortseiten 
ohne  Zeitdruck.  Die  entspre¬ 
chende  Software  soll  von 
Commodore  geliefert  wer¬ 
den.  (aa) 
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Vom  Bildschirm 
auf  Kassette? 

Ich  habe  einen  Commodore 
64  mit  Datasette.  Ich  suche  ein 
Programm,  um  Daten  vom  Bild¬ 
schirm  (also  Daten,  die  sich 
durch  irgendeinen  Programm¬ 
ablauf  ergeben)  auf  Kassette 
speichern  und  dort  wieder  ab- 
rufen  zu  können.  Wer  kann  mir 
helfen?  Thomas  Mandl 

Monitor  ohne 
Grünabstufungen? 

Kann  man  an  den  VC  20  einen 
S/W-Monitor  anschließen,  oh¬ 
ne  daß  bei  Mehrplatzbetrieb 
(verschiedene  Vorder-  und  Hin¬ 
tergrundfarben)  unangenehme 
Grünabstufungen  zu  sehen 
sind?  (Zum  Beispiel  durch  Ver¬ 
wendung  von  Pin  1  statt  Pin  4  am 
Monitor-Anschluß). 

Mirko  Wawrowsky 

Wie  verlängert 
man  Sprites? 

Ich  besitze  einen  C  64.  Erzeu¬ 
ge  ich  nun  ein  Sprite,  besteht  ja 
die  Möglichkeit,  es  in  X  oder  Y 
beziehungsweise  in  beiden 
Richtungen  zu  vergrößern.  Das 
funktioniert  bei  feststehendem 
Bewegungsablauf  ohne  Kom¬ 
plikationen,  lege  ich  jedoch  die 
Koordinaten,  an  denen  das  Spri¬ 
te  erscheinen  soll,  fest,  läßt  es 
sich  nicht  mehr  verlängern.  Das 
ist  zwar  logisch,  aber  unbefrie¬ 
digend.  Wie  muß  man  Vorge¬ 
hen?  Martin  Schwarz 

Nach  einer  Stunde 
keine  Farbe  mehr? 

Bei  meinem  Commodore  64 
passiert  es  jedesmal,  daß  er 
nach  zirka  einer  Stunde  keine 
Farben  mehr  anzeigt;  man  sieht 
nur  noch  schwarzweiß.  Kann 
man  etwas  dagegen  tun,  und 
wenn  ja,  was?  Klaus  Heinz 

Können  8032  und  64 
Zusammenarbeiten? 

Ich  besitze  den  CBM  8032  mit 
Single  Floppy  CBM  4031  mit  Re¬ 
corder  und  mit  Drucker  Epson 
FX80.  Ich  möchte  gerne  einen 
Grafik-Zusatz  kaufen,  muß  aber 
feststellen,  daß  so  etwas  kom¬ 
plett  zirka  1000  Mark  kostet 
(und  nur  schwarzweiß).  Wenn 
ich  in  der  Auflösung  die  An¬ 
sprüche  etwas  zurückstelle,  so 
müßte  der  C  64  doch  ein  idealer 
Partner  für  Farbgrafik  sein 
(wenn  man  einen  geeigneten 
Farbmonitor  kauft  oder  den  hei¬ 
mischen  Farbfernseher  be¬ 
nutzt).  Man  hätte  den  Vorteil, 
zwei  unabhängige  Systeme  zu 
besitzen.  Wie  kann  ich  diese 
Commodore-Computer  zum 


Datenaustausch  oder  Pro¬ 
grammaustausch  miteinander 
verbinden?  Kann  ich  von  bei¬ 
den  Computern  Daten  und  Pro¬ 
gramme  auf  die  gemeinsame 
Floppy  übertragen.  Alle  sagen, 
daß  das  im  Prinzip  möglich  ist, 
aber  keiner  kann  einem  genaue 
Auskunft  geben.  Vom  C  64  auf 
den  Drucker  kommt  man  mit  ei¬ 
nem  V.24-Interface?  Kann  über 
dieses  Interface  auch  eine  Ver¬ 
bindung  zur  Single-Floppy 
CBM-4031  hergestellt  werden? 
Man  sagte  mir,  daß  die  Daten 
im  C  64  vor  dem  eigentlichen 
Ausgang  (wenn  sie  noch  paral¬ 
lel  sind?)  abgegriffen  werden 
müssen.  Ich  verstehe  leider  zu 
wenig  davon.  Kann  man  den 
Commodore  64  als  Datenspei¬ 
cher  (eventuell  nur  für  serielle 
Daten)  für  den  CBM  8032  benut¬ 
zen?  Wie  spricht  man  ihn  an? 
Reine  Basic-Programme  (ohne 
PEEKS  und  POKES)  können  per 
Recorder  oder  per  Disk  auf  bei¬ 
den  Systemen  geladen  werden 
und  laufen  auch.  Mit  Daten 
müßte  es  dann  auch  möglich 
sein,  und  der  Zwischenträger— 
Recorder  oder  Disk  —  müßte 
sich  doch  auch  sparen  lassen. 
Gibt  es  geeignete  Geräte  zu 
kaufen  (mit  Software?)  oder 
kann  man  sie  selber  bauen? 

Karsten  Eckermann 

Ist  der  Drucker 
eingeschaltet? 

Mit  welchen  Befehlen  kann 
ich  den  Commodore  64  dazu 
veranlassen,  zu  überprüfen,  ob 
der  Drucker  beziehungsweise 
die  Floppy  eingeschaltet  ist?  Ei¬ 
ne  Fehlmeldung  ließe  das  Pro¬ 
gramm  abstürzen.  Mit  vorheri¬ 
ger  Überprüfung  durch  den 
Computer  aber  nicht. 

Ernst  Jeschke 

VC  20-Programme 
auf  8032 

Wie  kann  ich  Programme  vom 
VC  20  auf  dem  CBM  8032  zum 
Laufen  bringen?  Ich  möchte  le¬ 
diglich  das  Programm  überden 
Drucker  auslisten. 

Gerhard  Gruhl 

Andere  Tastatur  für 
VC  20? 

Kann  ich  an  den  VC  20  ohne 
großartige  technische  Verän¬ 
derungen  eine  andere  Tastatur, 
wie  zum  Beispiel  eine  CHERRY- 
Tastatur,  anschließen?  Wenn  ja, 
können  Sie  mir  auch  andere  Fir¬ 
men  nennen,  die  solche  Tasta¬ 
turen  vertreiben?  Am  wichtig¬ 
sten:  Die  Tastatur  sollte  mög¬ 
lichst  flach  sein,  und  qualitativ 
gute  Tasten  haben. 

Christoph  Dieker 


Fragen  Sie  doch! 

Selbst  bei  sorgfältiger  Lek¬ 
türe  von  Handbüchern  und 

Programmbeschreibungen 
bleiben  beim  Anwender  im¬ 
mer  wieder  Fragen  offen.  Viel 
mehr  Fragen  ergeben  sich 
bei  Computer-Interessenten, 
die  noch  keine  festen  Kontak¬ 
te  zu  Händlern,  Herstellern 
oder  Computerclubs  haben. 
Sie  können  der  Redaktion  Ih¬ 
re  Fragen  schreiben  oder 
Probleme  schildern  (am  ein¬ 
fachsten  auf  der  beigehefte- 
tcT  Karte).  Wir  veranlassen, 
daß  die  Fragen  von  einem 
Fachmann  beantwortet  wer¬ 
den.  Allgemein  interessieren¬ 
de  Fragen  und  Antworten 
werden  veröffentlicht. 

Worin  unterscheiden  sich 
Basic-Erweiterungen? 

Seit  einiger  Zeit  werden  für 
den  VC  20  diverse  Spracherwei- 
terungen  angeboten.  Unter  an¬ 
derem  Basic  Level  5.5  und  Exba- 
sic  Level  II.  Was  sind  die  wich¬ 
tigsten  Unterschiede?  Wieviel 
Speicherplatz  belegen  diese  Er¬ 
weiterungen  in  einem  VC  20  mit 
32  KByte  RAM? 

Rainer  Bärwolf 


Komma  als  Satzzeichen? 

Ist  es  möglich,  daß  man  das 
Komma  bei  einer  Eingabe  zu  ei¬ 
nem  INPUT-Befehl  beim  VC  20 
als  normales  Satzzeichen  ver¬ 
wendet,  ohne  daß  der  Compu¬ 
ter  dies,  beziehungsweise  das 
nach  dem  Komma  folgende,  als 
zweite  Eingabe  ansieht  und  die 
Fehlermeldung  »Extra  Igno- 
red«  ausgibt?  Kann  man  den 
Druckerpuffer  des  SEIKO- 
GP-100-VC  erweitern? 

Gerhard  Giessmann 

Beide  Fragen  lassen  sich  nur 
mit  »Nein«  beantworten. 


Was  braucht  man 
für  Multiplan? 

Ich  möchte  » Multiplan «  auf  ei¬ 
nem  Commodore  64  laufen  las¬ 
sen.  Welche  Commodore-Peri- 
pherie  benötige  ich  dazu  zu¬ 
sätzlich?  Vorhanden:  Commo¬ 
dore  64,  VC  1541  Floppy  Disk, 
VC  1521  Drucker. 

Günther  Klimek 
Multiplan  gibt  es  mittlerweile  di¬ 
rekt  für  das  Diskettenformat 
1541  (also  ohne  den  Umweg 
über  CP/M).  Erhältlich  ist  Multi¬ 
plan  (in  deutsch)  bei  Happy  Soft¬ 
ware  für  336  Mark. 

Wie  kann  man  Basic 
erweitern? 

Ich  würde  gerne  den  freien 
RAM-Bereich  C000-CFFF  beim 
Commodore  64  dazu  nützen, 
neue  Basicbefehle  mittels  Ma¬ 
schinensprache  zu  erzeugen. 
(Zum  Beispiel:  INSTR,  AUTO, 
RENUMBER,  PRINT  USING)  etc. 
Könnten  Sie  mir  bitte  Quellen 
angeben,  die  mir  diesbezüglich 
eine  Hilfestellung  geben? 

Ewald  Drexler 

Bildschirm  horizontal 
scrollen? 

Ich  besitze  einen  Commdore 
64  mit  Floppy-Disk.  Um  Spiele 
effektiv  zu  programmmieren, 
sind  POKEs  und  PEEKs  leider  zu 
langsam.  Daher  meine  Frage: 
Kann  ich  mit  dem  C  64  den  Bild¬ 
schirm  horizontal  scrollen  las¬ 
sen? 

Andreas  Linz 

Welches 

VC  20-Programm  erzeugt 
Sprache? 

Ich  bin  Besitzer  eines  VC  20 
mit  einer  3  KByte-Erweiterung. 
Wer  kennt  ein  Programm  zur  Er¬ 
zeugung  von  Sprache  (Deutsch 
oder  Englisch)  auf  dem  VC  20? 

Georg  Brandt 
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VC  20:  immer  nur  Basic? 

Was  gibt  es  für  den  VC  20  an 
anderen  Programmiersprachen 
außer  Basic,  Forth,  Pascal?  Wer 
hat  mit  diesen  Programmier¬ 
sprachen  auf  dem  VC  20  Erfah¬ 
rungen  gesammelt  und  kann  sie 
im  Leserforum  mitteilen?  ln  er¬ 
ster  Linie  würde  natürlich  inter¬ 
essieren,  welche  Versionen  von 
welchen  Anbietern  sich  beson¬ 
ders  bewährt  oder  nicht  be¬ 
währt  haben  und  für  welche 
Zwecke  —  außer  zur  Einarbei¬ 
tung  —  sich  die  eine  oder  ande¬ 
re  Sprache  in  Verbindung  mit 
dem  VC  20  besonders  eignet. 

Peter  Nießen 

Wollen  Sie 
antworten? 

Wir  veröffentlichen  auf  die¬ 
ser  Seite  auch  Fragen,  die 
sich  nicht  ohne  weiteres  an¬ 
hand  eines  guten  Archivs 
oder  aufgrund  der  Sachkun¬ 
de  eines  Herstellers  bezie¬ 
hungsweise  Programmierers 
beantworten  lassen.  Das  ist 
vor  allem  der  Fall,  wenn  es 
um  bestimmte  Erfahrungen 
geht  oder  um  die  Suche  nach 
speziellen  Programmen  be¬ 
ziehungsweise  Produkten. 
Wenn  Sie  eine  Antwort  auf  ei¬ 
ne  hier  veröffentlichte  Frage 
wissen  —  oder  eine  andere 
bessere  Antwort  als  die  hier 
gelesene  —  dann  schreiben 
Sie  uns  doch.  Antworten  pu¬ 
blizieren  wir  in  einer  der 
nächsten  Ausgaben.  Bei  Be¬ 
darf  stellen  wir  auch  den  Kon¬ 
takt  zwischen  Lesern  her. 

Wie  wertet  man  Basic- 
Programme  aus? 

Im  Data-Becker-Buch  »64  in¬ 
tern«  ist  eine  Betriebssystem¬ 
routine  aufgeführt  (Adresse: 


$AD9F),  die  beliebige  Aus¬ 
drücke  aus  dem  Basic- 
Programm  auswertet.  Wenn  ich 
diese  auf  meinem  Commdore 
64  vom  Maschinenprogramm 
aus  aufrufe,  macht  der  Compu¬ 
ter  alles  einwandfrei,  bringt 
aber  immer  nach  dem  dritten 
Aufruf:  9FORMULAR  TOO 
COMPLEX Error.  Wie  kann  man 
das  beheben?  Steffen  Roehn 


12-Volt-Betrieb  für  64? 

Ich  suche  bisher  vergeblich 
nach  einem  Anschlußgerät  für 
eine  12-Volt-Batterie  zum  Com- 
modore  64.  Obwohl  nach  dem 
vorgeschalteten  Transformator 
zu  urteilen  der  64  mit  12  Volt  be¬ 
triebsfähig  sein  müßte. 

Walter  Wehrenberg 

Der  C  64  benötigt  5-V-Gleich- 
und  12-V-Wechselspannung. 
Diese  erhält  er  über  das  Netz¬ 
teil.  Er  kann  daher  ohne  großen 
Aufwand  auch  über  eine  han¬ 
delsübliche  12-V- Autobatterie 
betrieben  werden.  Schon  mit  ei¬ 
ner  36-Ah-Batterie  ist  ein  ein¬ 
wandfreier  Betrieb  von  mehr  als 
15  Stunden  gewährleistet. 

Es  sind  nur  einige  einfache 
Eingriffe  auf  der  Platine-  nötig, 
um  den  C  64  über  einen  Adapter 
(der  für  gleichbleibende  Span¬ 
nungen  sorgt),  an  eine  Autobat¬ 
terie  anzuschließen.  Als  Ein¬ 
gang  kann  die  eingebaute  Dio¬ 
denbuchse  benutzt  werden. 

Die  ausführliche  Bauanleitung 
(Beschreibung  der  Eingriffe  auf 
der  Platine  und  Bauanleitung  für 
den  Adpater)  ist  für  20  Mark  bei 
mir  erhältlich,  der  komplette 
Adapter  (mit  Diodenstecker  für 
den  C  64  sowie  Anschlußklem¬ 
men  für  die  Batterie)  für  100 
Mark.  Bitte  Verrechnungs¬ 
scheck  beifügen.  Meine  An¬ 
schrift;  Dr,  Wilfried  Herget,  Siel¬ 
kamp  52,  3300  Braunschweig. 

Dr.  Wilfried  Herget 


Spielregeln 

Wir  verschicken  keine 
Prospekte  oder  ähnliche 
Produktinformationen  —  die 
müssen  Sie  direkt  beim  Lie¬ 
feranten  des  Produktes  an- 
fordem;  die  Anschrift  kann 
bei  uns  erfragt  werden. 

Wir  können  keine  Pro¬ 
gramme  umschreiben  oder 
anpassen.  Wenn  ein  Leser 
ein  von  uns  veröffentlichtes 
Programm  umgeschrieben 
hat  und  bereit  ist,  das  Listing 
abzugeben,  können  wir  ei¬ 
nen  entsprechenden  Hin¬ 
weis  im  Leserforum  veröf¬ 
fentlichen. 

Ob  und  wann  Antworten 
auf  die  veröffentlichten  Fra¬ 
gen  eingehen,  läßt  sich  nicht 
Voraussagen;  wir  sind  nicht 
in  der  Lage,  Vormerklisten 
zu  führen  und  einzelne  Le¬ 
ser  individuell  zu  informie¬ 
ren,  wenn  eine  Antwort  ein¬ 
gegangen  ist.  Wir  sind  aber 
gern  bereit,  den  Kontakt 
zwischen  verschiedenen  Le¬ 
sern  herzustellen,  die  am 
gleichen  Thema  interessiert 
sind. 

Forth-Handbuch  auf 
deutsch? 

Ich  habe  mir  zu  meinem  VC  20 
das  Modul  »Forth«  von  Audio- 
genie  gekauft.  Das  Handbuch 
zu  der  Programmiersprache  ist 
leider  nur  in  englisch  abgefaßt. 
Kann  mir  jemand  mit  einer  deut¬ 
schen  Fassung  oder  mit  einigen 
Tips  weiterhelfen? 

Hubert  Dieterich 

Ein  gutes  Forth-Handbuch  in 
deutscher  Sprache  gibt  es  zum 
Beispiel  beim  Hofacker,  ISBN 
3-911682-88-6. 

Programm  fortsetzen 
nach  Disk-Error 

Das  Auslesen  des  Fehlerka¬ 
nals  reicht  oft  nicht  aus,  um  ein 
einwandfreies  Weiterarbeiten 
zu  ermöglichen.  Wie  teile  ich 
der  Floppy  mit,  daß  der  Fehler 
erkannt  wurde  und  das  Pro¬ 
gramm  Weiterarbeiten  kann? 

( Guido  Enger) 

Immer,  wenn  man  in  einem 
Programm  einen  Zugriff  auf  die 
Diskette  macht,  muß  ein  Daten¬ 
kanal  geöffnet  werden.  Zum  Bei¬ 
spiel  OPEN  2,8,2,  "name.S.W" 
öffnet  eine  seqientielle  Datei 
zum  Schreiben.  Hinter  jedem 
OPEN-Befehl  sollte  man  den 
Fehlerkanal  der  Diskette  abfra- 
gen.  Das  macht  man  am  besten 
durch  einen  Sprung  in  ein  Unter¬ 
programm,  das  zum  Beispiel  in 
Zeile  20000  steht. 


1190... 

1200  CLOSE  2:  OPEN 
2,8,2. "DATEINAME,  S,R" 

1210  GOSUB  20000  :  REM  FEH¬ 
LERKANAL  LESEN 
1220 IF  Al  <>  0THEN  1200 
1230  ... 

Dieser  Programmausschnitt 
versucht,  eine  sequentielle  Da¬ 
tei  mit  dem  Namen  DATEINA¬ 
ME  zum  Lesen  von  Daten  (Zeile 
1200)  zu  öffnen.  Zeile  1210 
springt  in  das  Unterprogramm 
zum  Lesen  des  Fehlerkanals. 
Nachdem  dieser  abgearbeitet 
ist,  wird  in  Zeile  1220  gefragt,  ob 
ein  Fehler  vorlag  (dann  war  A 1 
<  >  0).  In  diesem  Fall  wird  ein 
neuer  Versuch  gestartet  (CLO¬ 
SE  2  schließt  den  vorher  geöff¬ 
neten  Kanal).  Sonst  wird  das  Pro¬ 
gramm  in  Zeile  1230  fortgesetzt. 
20000  REM  LESEN  DES  DISKET¬ 
TENFEHLERKANALS 
20010  : 

20020  OPEN  15,8,15  : 

INPUT#  15, Al, A2$, A3, A4 
20030  IF  Al  =  0THEN  CLOSE  15 
: RETURN 

20040  PRINT  CHR$(147)  :  REM 
CLR  SCREEN 

20050  PRINT  Al ,A2$,A3,A4  ; 
REM  FEHLER  WIRD  ANGE¬ 
ZEIGT 

20060  PRINT  »BITTE  BESSERN 
SIE  DEN  FEHLER  AUS« 

20070  PRINT  "  ...  UND 

DRUECKEN  SIE  >F<  ..." 

20080  GET  R$  :  IF  R$  <  >  "F" 
THEN  20080 
20090  RETURN 

Dieses  kleine  Programm  liest 
den  Fehlerkanal  der  Diskette. 
Wenn  kein  Fehler  existiert,  ist 
Al  =0  und  das  Programm  wird 
mit  RETURN  (Zeile  20030)  fortge¬ 
setzt.  Falls  ein  Fehler  existiert, 
wird  er  mit  Zeile  20050  ange¬ 
zeigt.  Jetzt  hat  man  die  Möglich¬ 
keit,  den  Fehler  auszubessern, 
Nachden  man  das  getan  hat, 
drückt  man  F  und  das  Pro¬ 
gramm  wird  fortgesetzt.  Nicht 
jeder  Diskettenfehler  kann  be¬ 
hoben  werden,  ohne  Änderun¬ 
gen  im  Programm  vorzuneh¬ 
men.  Aber  wenn  das  Programm 
O.K.  ist,  dann  handelt  es  sich  in 
der  Regel  um,  in  dieser  Form, 
behebbare  Fehler. 


Schachprogramme 

Ich  besitze  einen  Commodo- 
re  64  und  entsprechende  Soft¬ 
ware,  unter  anderem  auch  die 
Schachprogramme  Sargon  II, 
Petchess  und  Crandmaster.  Da 
ich  ein  Vereinsspieler  bin  (SK 
Anderssen  2900  Wuppertal),  su¬ 
che  ich  ein  sehr  starkes  Schach¬ 
programm  für  den  64er.  Die 
drei  oben  genannten  Schach¬ 
programme  sind  leider  viel  zu 
schwach  für  mich.  Frage:  Kennt 
jemand  ein  spielstarkes 
Schachprogramm  für  den  C  64? 

(Peter  Jugl) 
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Ein  entsprechendes  Interface 
bieten  verschiedene  Firmen  an, 
zum  Beispiel  Microdex  in  8036 
Herrsching  oder  Mirwald  Elec¬ 
tronic  in  8025  Unterhaching.  Da 
die  Preise  zum  Teil  sehr  stark 
differieren,  empfiehlt  sich  ein 
aufmerksamer  Preisvergleich. 
Beachten  Sie  in  diesem  Zusam¬ 
menhang  auch  unsere  Rubrik 
»Expansions«. 

Grafik  mit  VC  1515 

Mein  Drucker  VC  1515  steigt 
beim  Druck  von  Grafik  ständig 
mit  der  Fehlermeldung  »Gerät 
nicht  vorhanden«  aus.  Frage: 
Gibt  es  eine  Software-  odereine 
Hardwarelösung? 

(Joachim  Bolle) 

Wenn  der  Drucker  im  norma¬ 
len  Textmodus  zufriedenstel¬ 
lend  arbeitet,  ist  die  Wahr¬ 
scheinlichkeit  eines  Hardware- 
Fehlers  sehr  gering.  Überprü¬ 
fen  Sie  nochmals  Ihr  Programm: 
Wird  der  Druckerkanal  richtig 
eröffnet  (zum  Beispiel  »OPEN 
1,4«)  und  stimmt  die  am  Selbst¬ 
testschalter  eingestellte  Geräte¬ 
adresse  mit  der  im  Programm 
verwendeten'  überein?  Ist  der 
Drucker  richtig  angeschlossen 
und  eingeschaltet?  Denken  Sie 
auch  daran,  daß  die  Abkürzung 
»?«  für  den  PRINT-Befehl  bei 


eine  deutsche  Anleitung  für 
den  Drucker  Seikosha  GP100 
VC  bekommen? 

(Andreas  Flügge) 

Der  GP100  VC  ist  voll  grafikfä¬ 
hig,  das  heißt,  die  Nadeln  kön¬ 
nen  per  Software  einzeln  gesetzt 
werden.  Damit  ist  natürlich  auch 
die  Hardcopy  einer  Bildschirm¬ 
grafik  möglich.  Man  braucht  nur 
ein  entsprechendes  Programm 
dafür.  Falls  einer  unserer  Leser 
ein  solches  bereits  geschrieben 
hat,  werden  wir  es  gerne  veröf¬ 
fentlichen.  Ein  deutsches  Hand¬ 
buch  zum  GP100  VC  erhalten 
Sie  bei  Ihrem  Seikosha-Fach- 
händler. 

Zeilenvorschub  steuern? 

Der  Drucker  VC  1515  zu  mei¬ 
nem  VC  20  läßt  im  normalen 
Druckbetrieb  zwischen  zwei 
Zeilen  zirka  2  mm  Platz.  Kann  ich 
den  Drucker  über  Software  so 
steuern,  daß  zwischen  den  Zei¬ 
len  kein  Zwischenraum  bleibt? 
Anders  wäre  eine  Grafik  auf 
dem  Drucker  unmöglich,  da 
zum  Beispiel  eine  Kurve  in  Zei¬ 
len  aufgeteilt  würde. 

(Henner  Köhne) 

Der  Zeilenvorschub  wird 
beim  VC  1515  automatisch 
durch  den  gewählten  Zeichen- 


»PRINT  # «  nicht  zulässig  ist.  modur  ^  steuert .  Wird  mit  BS- 

Code  in  den  Grafik-Modus  ge¬ 
schaltet,  dann  wird  die  Ausgabe 
eines  Zeilenzwischenraumes 
unterdrückt,  um  ordentliche 
Grafiken  darstellen  zu  können. 


Hardcopy  mit  VC  1515 

Die  im  Grafikdrucker  VC  1515 
ausgedruckte  Hardcopy  läuft 
nur  in  der  Grundversion.  Ich  ha¬ 
be  eine  Datei  mit  16  KByte  Spei¬ 
chererweiterung  und  möchte 
gerne  einen  Bildschirmaus¬ 
druck  bekommen.  Vielleicht 
können  Sie  mir  die  Hardcopy 
ändern,  damit  ich  meine  Datei 
nicht  vollkommen  neu  aufbau¬ 
en  und  eingeben  muß. 

(Gerd  Blinde) 

Die  Anfangsadresse  des 
Video-RAM  ist  beim  VC  20  lei¬ 
der  je  nach  Ausbaustufe  ver¬ 
schieden: 

Bis  3  KByte  Erweiterung:  Video- 
RAM  ab  $1EOO  (dezimal  7680), 
bei  Erweiterungen  >  3  KByte: 
Video-RAM  ab  $1000  (dezimal 
4096). 

Ein  Hardcopy-Programm  muß 
natürlich  auch  auf  diese  ver¬ 
schiedenen  Video-Bereiche  zu¬ 
greifen  und  im  Falle  einer  Spei¬ 
chererweiterung  entsprechend 
modifiziert  werden. 


Kleinschrift  auf  VC  1515 

Ich  besitze  einen  VC  20  mit 
Drucker  VC  1515.  Wie  kann  ich 
ein  Programm-Listing  im  Klein¬ 
schriftmodus  abdrucken? 

(Martin  Quinke) 

Der  VC  1515-Druckerwirdmit 
folgender  Kommandozeile  zur 
Ausgabe  eines  Listings  im  Klein¬ 
schriftmodus  veranlaßt:  »OPEN 
4,4,7:PRINT  #  4,  CHR$(17):CMD 
4: LIST«.  Vorsicht,  die  Angabe 
der  Sekundäradresse  7  nicht 
vergessen!  Mit  »OPEN 
4,4:PRINT#4,CHR$(145>  kann 
man  wieder  in  den  Normalmo¬ 
dus  zurückschalten  (nachzule¬ 
sen  im  VC  1515-Handbuch  Seite 
30/31). 

Schreibmaschine  als 
Drucker? 


Ersatz  für  1541? 

Wie  kann  ich  mein  Floppy- 
Disk-Laufwerk  von  Commodo- 
re  durch  Hard-  oder  Software- 
Änderung  schneller  machen? 

(Uwe  Busch) 

Eine  praktikable  Methode  da¬ 
für  ist  uns  nicht  bekannt. 

Wie  kann  ich  ein  BASF- 
Floppy-Laufwerk  6108  an  der 
64  anschließen  ? 

(Peter  Bosse) 

Gibt  es  eine  Möglichkeit, 
handelsübliche  Floppy-Lauf- 
werke  beispielsweise  von  Teac, 
Sony  oder  BASF  an  den  64  anzu¬ 
schließen?  Wo  könnte  man  Bau¬ 
pläne  sowie  Unterlagen  über 
das  Betriebssystem  bekom¬ 
men? 

(Heinz  Sigrist) 

Commodore-Laufwerke  ver¬ 
fügen  über  eigene  »Intelligenz«, 
handelsübliche  Laufwerke  sind 
dagegen  »dumm«,  so  daß  für  ih¬ 
ren  Einsatz,  abgesehen  von  ei¬ 
nem  Betriebssystem,  noch  ein 
an  den  64  angepaßter  Control¬ 
ler  nötig  wäre.  Ein  Selbstbau 
dürfte  sich  kaum  lohnen;  unab¬ 
hängige  Anbieter  Commodore- 
kompatibler  Laufwerke  bezie¬ 
hungsweise  Controller  sind  uns 
nicht  bekannt. 


Wordpro  3+  mit  1541? 

Ich  besitze  einen  64  mit 
Floppy-Laufwerk  1541 .  Als  Text¬ 
verarbeitungsprogramm  woll¬ 
te  ich  Wordpro  3+  einsetzen. 
Dieses  Programm  scheint  aber 
nur  mit  Druckern  zu  arbeiten, 
die  über  den  IEC  Bus  angesteu¬ 
ert  werden.  Wer  weiß  wie  ein 
eigener  Druckertreiber  in 
Wordpro  eingebunden  werden 
kann  (Centronics-Schnittstelle 
über  User-Port)?  Eine  andere 
Möglichkeit  wäre  die  Umwand¬ 
lung  IEC-seriell/parallel.  Wer 
hat  so  etwas  schon  realisiert? 

(Heinzjosef  Erken) 

Es  gibt  2  Versionen  des  Word¬ 
pro  3  +  für  den  C  64.  Eine  für  den 
VC  1526,  die  andere  für  andere 
(Commodore-)Drucker . 

Interface  für  Epson 
RX-80 

Wer  bietet  ein  Interface  für 
den  Anschluß  eines  Epson 
RX-80  FM  an  den  seriellen  Port 
des  VC  20  an,  bei  dem  sowohl 
die  ASCII-Zeichen  als  auch  die 
Grafiksymbole  und  Cursorsteu¬ 
erzeichen  des  Computers  über¬ 
tragen  wurden  und  vom 
Drucker  richtig  verarbeitet 
werden  können? 

(Karl  Schmaderer) 


Grafik  auf  GP  100  VC? 

Ich  besitze  einen  VC  20  und 
den  Seikosha  GP100VC- 
Drucker.  Wie  kann  ich  die  mit 
dem  VC  20  erstellten  Grafiken 
(mit  Modul  VIC1211A)  auf  Pa¬ 
pier  bringen?  Woher  kann  ich 


Welche  Schreibmaschine  ver¬ 
fügt  über  eine  Schnittstelle  für 
den  VC  20?  (Harald  Küst) 

Prinzipiell  lassen  sich  alle 
elektrischen  Schreibmaschi¬ 
nen,  die  überhaupt  für  den  An¬ 
schluß  an  einen  Computer  vor¬ 


gesehen  sind,  auch  am  VC  20 
betreiben.  In  den  meisten  Fäl¬ 
len  ist  dazu  ein  V.24-Interface 
notwendig,  einige  Schreibma¬ 
schinen  lassen  sich  jedoch  auch 
direkt  über  den  seriellen  Bus 
des  VC  20  anschließen,  zum  Bei¬ 
spiel  Brother  EP-20C  oder 
Olympia  Compact  2.  Sie  müssen 
sich  allerdings  darüber  im  kla¬ 
ren  sein,  daß  eine  Schreibma¬ 
schine  weder  Grafik-  noch  Steu¬ 
erzeichen  des  VC  20  drucken 
kann. 

Entfernungen  mit 
VC  20  berechnen? 

Ich  bin  Besitzer  eines  VC  20 
(16  KByte).  Wie  kann  ich  mit  Hil¬ 
fe  des  im  VC  20  definierten  Bo¬ 
genmaßes  die  Entfernung  zwi¬ 
schen  zwei  Koordinaten  auf  der 
Oberfläche  der  Erde  und  den 
Kurs  zwischen  den  beiden 
Punkten  berechnen  (zum  Bei¬ 
spiel  zwischen  30° 34’ N 10° 49  E 
und  50°45N  13°49’E)? 

(Harald  Lang) 

Hier  gibt  es  Clubs 

In  Hamburg-Harburg  wurde 
der  C  64  User-Club-Harburg  ge¬ 
gründet.  Nach  den  Vorstellun¬ 
gen  der  Gründer  sollte  er  in  den 
Anfängen  folgende  Ideen  ver¬ 
wirklichen: 

*  Hilfestellung  für  Anfänger  mit 
dem  Computer  und  Program¬ 
men. 

*  Wissenserweiterung 

*  gemeinsamer  Einkauf 

*  Übersetzungen  von  Arbeitsan¬ 
leitungen  und  Spielanweisun¬ 
gen 

*  Tausch  von  Programmen  im 
Rahmen  der  gesetzlichen  Mög¬ 
lichkeiten. 

Ziele,  auf  die  in  Zukunft  hinge¬ 
arbeitet  werden  soll,  sind: 

*  Erlernen  und  Vermitteln  von 
Programmiersprachen 

*  Einstieg  und  Anwendung  von 
C/PM-Programmen 

*  Umgang  mit  kommerziellen 
Programmen 

*  Anpassen  von  Programmen  an 
die  persönlichen  Bedürfnisse 
des  Anwenders. 

Mitglied  kann  jeder  C  64-Be- 
sitzer  werden,  und  zwar  auch 
dann ,  wenn  er  zur  Zeit  noch  nicht 
den  Ehrgeiz  hat,  »Computer- 
Fachfrau/mann«  zu  werden. 

Die  Mitgliedschaft  ist  kosten¬ 
los,  bis  auf  tatsächlich  anfallen¬ 
de  Auslagen  wie  Porto,  Anzei¬ 
gen  etc. 

Der  Club  trifft  sich  zirka  alle  4 
bis  6  Wochen  bei  einem  der  Mit¬ 
glieder. 

Ansprechpartner  sind:  An¬ 
dreas  Gröschl,  Lasallestr.  54, 
2100  Hamburg  90,  Tel.  7651923 
und  Werner  Thöle,  Tel. 
7540598.  Telefonische  Anfra¬ 
gen  bitte  nur  in  der  Zeit  von 
19.00  bis  20.00  Uhr. 
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So  beliebt  und  verbreitet  der 
Commodore  VC  20  und  C  64 
auch  sind,  einige  Dinge  ha 
man  doch  bemängelt,  und  das 
Recht.  Vor  allem  ist  es  ihr  spart 
sches  Basic.  Befehle,  die  and 
Computer  bereits  »in  sich«  haben, 
mußten  beim  VC  20  und  C  64  »soft« 
umgangen  werden,  Und  das  war 
natürlich  auch  die  Geburtsstunde 
für  Basicerweiterungen,  Toolkits, 
Assemblern,  Grafikmodule  und 
was  da  sonst  noch  auf  den  Markt  ge¬ 
kommen  ist. 

Das  alles  weiß  Commodore  natür¬ 
lich  auch.  Viele  andere  Computer¬ 
hersteller  geben  Ihren  Computern 
ein  wesentlich  komfortableres  Ba¬ 
sic  mit.  Mit  dem  neuen  C264  (Bild  1) 
setzt  Commodore  zwar  keinen  neu¬ 
en  Standard,  aber  es  wird  gleichge¬ 
zogen.  Und  berücksichtigt  man  zum 
Beispiel  den  komfortablen  Editor, 
meiner  Meinung  nach  der  Beste  in 
dieser  Leistungsklasse,  übrigens 
der  gleiche  wie  der  des  C64,  und 
den  eingebauten  Maschinenspra¬ 
che-Monitor,  Assembler  und  Dis- 


50  findet  der  264  seinen 
ln  Puncto  Bedienungsfreund¬ 
lichkeit  ganz  vorne,  an  der  Spitze. 
Dabei  ist  die  schon  in  der  Ausgabe 
4,  Seite  9  ff  erwähnte  Built-In-Soft- 
ware  noch  gar  nicht  berücksichtigt. 

Built-In-Software 

Laut  Commodore  wird  es  folgen¬ 
de  »eingebaute«  Programme  geben 
(Bild  2): 

*  Magic  Desk,  eine  Simulation  eines 
kompletten  Büroschreibtisches,  mit 
den  Funktionen  Briefe  schreiben, 
Rechnen,  Schriftverkehrablage, 
Zeitanzeige  und  so  weiter,  ein  Pro¬ 
gramm  mehr  für  den  Home  und  pri¬ 
vaten  Einsatz  (Wir  werden  noch  ei¬ 
nen  ausführlichen  Test  dazu  brin¬ 
gen). 

*  Superscript,  eine  semiprofessio¬ 
nelle  Textverarbeitung 


*  Commodore  3-Plus-l 

*  Logo,  eine  Programmiersprache 
vor  allem  für  den  Anfänger 

*  Pilot,  eine  weitere  Programmier¬ 
sprache 

*  Easycalc  264,  ein  Tabellenkalku¬ 
lationsprogramm 

*  COM  264 

*  Financial  Advisor 

Der  Commodore  264  wird  mit  ei¬ 
nem  dieser  Programme,  das  fest  in¬ 
stalliert  wird,  ausgeliefert.  Der  Käu¬ 
fer  gibt  bei  seiner  Bestellung  an, 
welche  Software  er  haben  will.  Die¬ 
se  Programme  lassen  sich  dann  kin¬ 
derleicht  über  die  Funktionstasten 
ein-  und  auch  wieder  ausschalten. 
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werden  durch  den  GRAPHIC- 
Befehl  definiert.  Und  das  wird  fol¬ 
gendermaßen  gelöst: 

Modus  0  =  Textdarstellung,  das  ist 
der  Standard-Modus,  in  dem  sich 
der  C264  nach  dem  Einschalten  be¬ 
findet. 

Modus  1  =  Hochauflösende  Grafik 
Modus  2  =  Hochauflösende  Grafik 
+  Textdarstellung  in  den  unteren 
fünf  Zeilen 

Modus  3  =  Multicolor  Grafik 
Modus  4  =  Multicolor  Grafik  +  Text 
in  den  unteren  fünf  Zeilen 

Es  ist  auch  möglich,  im  hochauflö¬ 
senden  Grafikbereich  Text  hinein¬ 
zusetzen  (siehe  CHAR-Befehl).  Im 
Modus  3  und  4  kann  vollkommen  un¬ 
abhängig  vom  Hires-Bildschirm,  al¬ 
so  ohne  ihn  zu  beeinflussen,  irgend¬ 
ein  Text  in  den  letzten  fünf  Zeilen 
des  Bildschirms  dargestellt  wer¬ 
den.  Es  ist  somit  möglich,  im  oberen 
Teil  eine  Grafik  zu  setzen  und 
gleichzeitig  unten  durch  den  LIST- 
Befehl  ein  Lasting  ablaufen,  oder 
zum  Beispiel  eine  Tabelle  sich  an- 
zeigen  zu  lassen.  Durch  Wahl  der 
Grafik-Modi  1  bis  4  wird  ein  Spei¬ 
cherplatz  von  10  KByte  reserviert. 
Und  mit  rund  60  KByte  frei  program¬ 
mierbarem  RAM-Speicher  ist  das 
keine  nennenswerte  Einschrän¬ 
kung. 

Der  C264  ist  in  der  Lage,  128  Far¬ 
ben  darzustellen.  Genauer  gesagt, 
16  Farben  in  je  acht  verschiedenen 
Abstufungen  (Bild  8),  Diese  Farben 
können  direkt  angesprochen  wer¬ 
den,  entweder  mit  der  Control- 
Taste  im  Direkt-Modus  oder  durch 
einfachen  Basic-Befehl  im  Pro¬ 
gramm.  Die  Grafik-Befehle  sehen 
Sie  in  Bild  5,  6  und  9. 


wellige  Belegung  dieser  Tasten 
kann  mit  der  Anweisung  DISPLAY 
abgerufen  werden.  Eine  Besonder¬ 
heit  ist  die  Help-Funktion.  Wurde 
ein  Programm  mit  einer  Fehlermel¬ 
dung  abgebrochen,  ist  es  möglich, 
sich  die  fehlerhafte  Programmzeile 
durch  Drücken  der  Help-Taste  (zum 
Beispiel  Funktionstaste  f8)  revers 
anzeigen  zu  lassen.  Leider  wird 
nicht  der  Fehler  in  der  Zeile  selbst 
angezeigt,  etwa  wie  bei  ExBasic- 
Level  II,  wo  der  Cursor  direkt  auf 
den  Fehler  zeigt.  Der  Wert  dieser 
Help-Funktion  ist  eigentlich  nicht 
ganz  einsehbar,  da  auch  die  norma¬ 
le  Basic-Fehlermeldung  auf  die  feh¬ 
lerhafte  Zeüe  hinweist. 
Grafik-Befehle 

Es  ist  möglich,  drei  Bildschirmmo¬ 
di  darzustellen:  Den  hochauflösen¬ 
den  Grafik-Modus  mit  einer  Auflö¬ 
sung  von  200  x  320  Punkten,  den 
Multicolor-Modus  mit  einer  Auflö¬ 
sung  von  1 60  x  200  Punkten  und  den 
normalen  Textmodus  mit  40  x  25  Zei¬ 
chen.  Diese  verschiedenen  Modi 
können,  und  das  ist  ein  echtes  Plus, 
gleichzeitig  dargestellt  werden.  Sie 


stützt  jetzt  nicht  nur  die  Tonausgabe, 
auch  umfangreiche  und  mächtige 
Grafik-Befehle  sowie  Hilfsfunktio¬ 
nen,  Sound-  und  Diskettenbefehle 
wurden  zusätzlich  zum  bisherigen 
Commodore-Basic  implementiert. 

Viele  Befehle,  nämlich  alle,  die 
sich  im  Direkt-Modus  ausführen  las¬ 
sen,  können  über  die  Funktionsta¬ 
sten  programmiert  werden.  Sie  sind 
frei  programmierbar.  Das  funktio¬ 
niert  genauso  wie  beim  Simons- 
Basic  mit  dem  Key-Befehl.  Die  je- 

i6  mM? 
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Alle  restlichen  oben  angegebenen 
Programme  können  dann  über  den 
Expansionport  als  Modul  einge¬ 
steckt  und  benutzt  werden. 

Da  ein  Wechseln  der  Built-In-Soft- 
ware  nicht  so  einfach  möglich  sein 
dürfte  (der  Computer  muß  geöffnet, 
das  ROM  ersetzt  werden,  Garantie¬ 
bedingungen  müssen  beachtet  wer¬ 
den),  ist  schon  beim  Kauf  des  C264 
eine  wichtige  Entscheidung  zu  tref¬ 
fen.  Hoffentlich  werden  diese  Über¬ 
legungen  durch  eine  umfassende 
Beratung  durch  den  Verkäufer  und 
Händler  unterstützt.  Sobald  der 
C264  mit  dieser  Software  auf  dem 
deutschen  Markt  erhältlich  sein 
wird,  werden  wir  Ihnen  wichtige  In¬ 
formationen  und  Hilfestellungen  ge¬ 
ben.  Diese  Programme  werden 
oder  sind  nämlich  zum  Teil  auch 
Schon  für  den  C  64  erhältlich. 

Doch  kommen  wir  zum  Basic  des 
C264:  Wie  schon  kurz  angedeutet, 
besitzt  der  Commodore  264  ein 
recht  komfortables  Basic.  Es  unter- 
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Bild  7.  Windowing  beim  264. 
In  jedem  Fenster  laufen 
Aktionen  unabhängig 
voneinander  ab.  ► 


COLOR,  Region,  Farbe,  Farbintensität 
Region  (0  bis  4) 

0  =  Hintergrundfarbe 

1  =  Zeichenfaxbe 

2  =  Multicolor  1 

3  =  Multicolor  2 

4  =  Rahmenfarbe 
Farbe  (1  bis  16) 

Farbintensität  (0  =  dunkel, 
bis  7  =  hell) 

GRAPHIC  Modus,  löschen 
Modus  (0  bis  4) 

0  =  Text 

1  =  Hires 

2  =  Hires  +  Text 
(unterteilter  Bildschirm) 

3  =  Multicolor  1 

4  =  Multicolor  2 
(unterteilter  Bildschirm) 
löschen  (0  oder  1) 

0  =  nicht  löschen 
1  =  löschen 


Der  C264  hat  zum  Teil  sehr  mäch¬ 
tige  Grafik-Befehle.  Sie  können  si¬ 
cher  schon  abschätzen,  wie  einfach 
jetzt  Grafik  erstellt  werden  kann.  Si¬ 
cher  haben  Sie  bemerkt,  daß  keine 
Rede  mehr  von  Sprites  ist.  Und  in 
der  Tat,  die  beim  C  64  so  beliebten 
Sprites  gibt  es  beim  C264  nicht 
mehr.  Man  kann  sich  zwar  bestimm¬ 
te  Bereiche  des  Bildschirms  reser¬ 
vieren  und  auch  verschieben,  da¬ 
bei  ist  man  auch  nicht  beschränkt 
auf  die  bei  den  Sprites  begrenzten 
Größe  von  24  x  21  Punkten.  Ob  je¬ 
doch  mit  Merkmalen  wie  Kollisions¬ 
abfrage,  etwas  Entsprechendes  wie 
ein  Hintergrund-  beziehungsweise 
Vordergrund-Sprite  definiert  wer¬ 
den  kann,  mit  allen  sich  daraus  er¬ 
gebenden  Möglichkeiten  für  Spie¬ 
le,  ist  zumindest  zweifelhaft.  Aus 
dem  Basic- Wortschatz  und  dem 
Handbuch  war  das  nicht  ersichtlich 
Apropos  Handbuch:  Auch  dies 


◄  Bild  6.  Färb-  und 
Grafikmodi 
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Befehle  des  264  C  264  **  8  Ai,Sf„fünfl<n 


CHAR  =  fügt  Texte  direkt  in  Hires-Grafik  ein 
BOX  =  zeichnet  Rechtecke 

CIRCLE  =  zeichnet  Kreise,  Ellipsen 

PAINT  =  füllt  einen  bestimmten  Bereich  mit  einer  bestimmten  Farbe 
(wie  in  Simons-Basic) 

SCALE  =  Die  Skalierung  der  Bit-Muster  der  Hires-  und  Multicolor-Grafik  kann 
geändert  werden. 

DRAW  =  Zeichnet  Punkte  und  Linien 

LOCÄTE  =  setzt  den  Anfangspunkt  eines  Zeichenbefehls  fest 

SSHAPE  =  speichert  einen  zu  bestimmenden  Teü  der  Hires  Grafik  auf  Band 
oder  Diskette 

GSHAPE  =  Diesen  Teil  kann  man  mit  GSHAPE  wieder  an  irgendeiner  Stelle  des 
Grafik-Bildschirms  auszeichnen  lassen.  GSHAPE  erlaubt  mehrere 
Modi:  Modus  (0  bis  4) 

0  =  wie  gespeichert 

1  =  Reverse  Darstellung 

2  =  OR  —  verknüpft  mit  der  Umgebung 

3  =  AND  —  verknüpft  mit  der  Umgebung 

4  =  XOR  —  verknüpft  mit  der  Umgebung 

RCLR(N)  -  Ordnet  einer  bestimmten  Bildschirmzone  N  (0  bis  4)  einer  bestimm¬ 
ten  Farbe  zu  (Zonen  siehe  COLOR) 

RDOT(N)  =  gibt  die  momentane  Position  des  Grafik-Cursors  an 
RGR(N)  -  man  erhält  den  Grafik-Modus  in  dem  man  sich  befindet 
RLUM(N)  =  gibt  die  zugewiesene  Farbintensität  der  Farbzone  N  an 


bisher  stiefmütterlich  behandelte^' 
Thema  reiht  sich  in  der  Reihe  der 
positiven  Eindrücke  nahtlos  ein.  Es 
enthält  eine  umfassende  Erklärung 
aller  Basic-Befehle,  mit  zahlreichen 
Beispielen,  einer  kompletten  Liste 
und  Beschreibung  der  Monitor- 
Befehle  und  mehreren  Anhängen. 
Dieses  Handbuch  läßt  sicherlich 
nicht  so  viele  Fragen  offen  wie  man 
es  bisher  von  Commodore  gewohnt 
war. 

Kommen  wir  zum  nächsten 
Thema. 

Sound-Befehle 

Was  man  beim  Basic  Positives  ge¬ 
macht  hat,  ist  genau  entgegenge¬ 
setzt  den  Sound-Möglichkeiten  des 
C264.  Es  gibt  nämlich  nur  zwei  Be¬ 
fehle,  die  die  »musikalischen«  Ei¬ 
genschaften  des  C264  unterstützen 
(Bild  10).  Mehr  sind  auch  gar  nicht 
notwendig,  da  die  Sound-Fähigkei- 
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ten  des  C264  gegenüber  denen  des 
C  64  stark  eingeschränkt  wurden. 

Ich  selbst  habe  zwischen  den  bei¬ 
den  Stimmen  (x  =  1  und  x  =  2)  aller¬ 
dings  keinen  Unterschied  feststel- 
;len  können.  Die  fantastischen 
Synthesizer-  Eigenschaften  des  C  64 
wurden  fast  völlig  unter  den  Tisch 
gekehrt.  Ob  diese  Einschränkung 
negativ  zu  bewerten  ist,  bleibt  da¬ 
hingestellt.  Denn  Commodore  hatte 
mit  diesem  Modell  nicht  vor,  seinen 
Renner  C  64  abzulösen. 

Dafür  können  sich  die  Hilfsfunk¬ 
tionen  des  C264  wieder  sehen  las¬ 
sen.  Es  gibt  vier  Hilfs-Funktionen, 
die  ein  effektives  Editieren  von 
Basic-Programm  stark  unterstützen  Blld  H.  Disk , 
(Bild  12) 

Eine  andere  Gruppe  sind  die 
Disketten-Befehle.  Sie  entsprechen 


äSSSf» 


denen  der  CBM  8000er  Reihe  (Bild 

11.) 

Ein  umständliches  Offnen  der  Da¬ 
tenkanäle  entfällt  somit.  Allerdings 
sind  die  vom  C  64  bekannten 
Disketten-Befehle  auch  anwend¬ 
bar.  Der  Fehlerstatus  eines  Lauf¬ 
werkes  kann  einfach  über  die  Va¬ 
riablen  DS  und  DS$  angezeigt  wer¬ 
den.  Sie  enthalten  die  Fehlerart  und 
die  entsprechende  Fehlermeldung. 

Aber  auch  das  Basic  unterstützt 
die  Fehlererkennung  im  Pro¬ 
gramm.  Es  gibt  die  Möglichkeit, 
dem  Programm  »Fallen«  zu  stellen, 
Commodore  nennt  es  »trapping«. 

Mit  diesen  beiden  zusammenge¬ 
hörigen  Befehlen  (TRAP  und  RESU- 
ME,  siehe  Bild  13)  kann  das  Pro- 
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gramm  absturzsicher  gemacht  wer¬ 
den.  Auch  wenn  man  zum  Beispiel 
die  Stop-Taste  betätigt,  gibt  es  kei¬ 
nen  BREAK,  sondern  das  Pro¬ 
gramm  wird  nach  dem  Loslassen 
der  STOP-Taste  ohne  eine  Fehler¬ 
meldungfortgesetzt.  Nur  der  Fehler 
FILE  NOT  FOUND  wird  nicht  be¬ 
rücksichtigt. 

Aber  es  kommt  noch  besser.  Es 
wurden  Befehle  implementiert,  die 
das  Strukturierte  Programmieren 
unterstützen  (siehe  Bild  4  und  15). 

Im  Bild  16  sind  die  Befehle  zusam¬ 
mengefaßt,  die  sich  in  keine  be¬ 
stimmte  Kategorie  eiügliedern  las¬ 
sen  ,  >' 

Aus  den  Bildern  erkennen  Sie  alle 
Befehle,  die  das  neue  Commodore 
Basic  3.5  bietet.  Selbstverständlich 
kommen  noch  die  vom  VC  20/C  64 
hinzu.  Sie  sehen  selbst,  wie  komfor¬ 
tabel  es  geworden  ist.  Es  laßt  kaum 
noch  Wünsche  offen.  Aber  das  ist 
immer  noch  nicht  alles.  Wie  schon 
kurz  erwähnt,  besitzt  der  Commo¬ 
dore  C264  auch  noch  einen  einge¬ 
bauten  Maschinensprache-Moni¬ 


tor.  Und  das  ist  eigentlich  eine  Un¬ 
tertreibung.  Denn  es  gibt  nicht  nur 
die  sonst  üblichen  Monitorfunktio¬ 
nen.  Auch  ein  Ässemblieren  und  Di- 
sassemblieren  ist  damit  möglich. 
TEDMON,  so  wird  er  genannt,  und 
Basic  können  nebeneinander  lau¬ 
fen  und  schließen  sich  nicht  gegen¬ 
seitig  aus.  Es  ist  auf  einfache  Weise 
möglich,  entweder  Assemblerpro¬ 
gramme  separat  oder  als  Unterpro¬ 
gramm  in  Basic  ablaufen  zu  lassen. 
Der  TEDMON  wird  von  Basic  mit 
dem  Befehl  MONITOR  aufgerufen. 
Danach  stehen  eine  ganze  Reihe 
von  Funktionen  zur  Verfügung  (sie¬ 
he  Büd  3  und  14). 

Betrachtet  man  das  gesamte  Ge¬ 
rät' mit  allen  seinen  Möglichkeiten 
wie  das  vorzügliche  Basic,  den  ein- 


?  "  GO 
G  " 

-  ^°ad 

-  ML 5 
V-«*  ■ 


.... 

',°n 


.  ve* 

d  tv  , 


t>e' 


-pis^e 


gebauten  Maschinensprache-Moni¬ 
tor  sowie  der  Built-In-Software,  so 
kann  man  Commodore  zu  diesem 
Computer  beglückwünschen.  Im 
Vergleich  zum  C  64  kann  man  sa¬ 
gen,  daß  der  C264  zwar  in  seinen 
Grafikmöglichkeiten  etwas  einge¬ 
schränkt  (keine  Sprites)  und  der 
Sound-Teil  erheblich  reduziert  wur¬ 
de,  jedoch  die  Bedienerfreundlich¬ 
keit  um  ein  gewaltiges  Maß  gestie¬ 
gen  ist.  Auch  das  Gehäuse  macht  ei¬ 
nen  stabilen  Eindruck  und  ist  sehr 
kompakt.  Die  Tastatur  ist  leichtgän¬ 
gig  und  die  Idee  mit  den  Cursorta¬ 
sten  (siehe  Bild  1)  ist  auch  nicht  übel. 
Diese  Merkmale  und  der  Preis  von 
voraussichtlich  um  1200  Mark  gren¬ 
zen  dann  auch  den  C264  vom  C  64 
ab,  Der  C264  geht  eindeutig  in  Rich¬ 
tung  Anwendung.  Seine  Software 
(Basic  Windowingfähigkeit  (siehe 
Bild  7)  und  Built-In-Software)  unter¬ 
stützt  stark  die  Programmierung 
und  Nutzung  profesioneller  Soft¬ 
ware. 

Leider  setzt  auch  Commodore, 
wie  so  viele  europäische  und  ameri¬ 
kanische  Computerhersteller,  die 
unheilvolle  Strategie  der  Inkompati¬ 
bilitäten  fort.  Es  hätte  doch  möglich 
sein  müssen,  zumindest  die  An¬ 
schlußmöglichkeiten  der  Periphe¬ 
rie  voll  kompatibel  mit  dem  C  64  zu 
machen.  (gk) 
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I  voll  Strukturierter 

Ende  (LOOP  UNTIL/WHILE)  gesetzt  werden. 
Durch  EXIT  kann  die  Schleife  während  eine 
Schleifendurchlaufs  verlassen  werden. 


UNTIL 
DO  WHILE 
EXIT 

LOOP  UNTIL 
LOOP  WHILE 
IF  THEN  ELSE 
BUd  15.  Auch  strukturierte  Programmierung  ist  möglich 
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eder  Commodore  64-Besitzer 
weiß  spätestens,  nachdem  er 
das  (magere)  Handbuch  gele¬ 
sen  hat,  daß  das  Basic  des  C  64  noch 
viele  Wünsche  offen  läßt.  Auch  wer¬ 
den  viele  Benutzer,  die  sich  nicht 
nur  mit  Basic  beschäftigen,  einen 
eingebauten  Monitor  vermissen. 


Dieses  Problem  wurde  in  der  V er- 
gangenheit  bereits  mehrmals  durch 
nachladbare  beziehungsweise  ein¬ 
steckbare  Basicerweiterungen  zu 
lösen  versucht  (Simons  Basic,  Exten- 
ded  Basic,  usw.).  Ein  Produkt  aus 
diesem  Bereich  ist  das  Steckmodul 
»KFC  Super«  (Bild  1). 

Das  Modul  wird  als  offene  Platine 
mit  vier  EPROM-Steckplätzen,  von 
denen  zwei  bestückt  sind,  geliefert. 
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Auf  der  Platine  befindet  sich  ferner 
ein  Resetknopf,  ein  Dip-Schalter 
und  ein  Ein/Aus-Schalter.  Das  Mo¬ 
dul  ist  für  eine  Aufnahme  im 
Expansion-Port  vorgesehen  und 
paßt  einwandfrei,  auch  wenn  der 
Anblick  einer  offenen  Platine  nicht 
jedermanns  Geschmack  ist. 

Die  beiliegende  Bedienungsan¬ 
weisung,  die  leider  mit  Beispielpro- 
giammen  recht  spärlich  umgeht, 


verspricht  viel:  KFC  Super  sei  nicht 
nur  ein  Toolkit,  sondern  auch  em 
Monitor  mit  außergewöhnlichen  Fä¬ 
higkeiten. 

Nach  dem  Einstecken  des  Moduls 
meldet  sich  KFC  Super  mit  eigenem 
Titelbild  und  Angabe  des  freien  Ba- 
sicspeichers  (30719  Byte).  Der  Ver¬ 
lust  an  Speicherplatz  für  Basic- 
Programme  erklärt  sich  leicht, 
wenn  man  den  Speicherbereich  be¬ 
trachtet,  in  den  sich  das  KFC  Super 
lädt.  Es  steht  im  sogenannten  Auto¬ 
startbereich  ab  $8000  (32768),  der 
Monitor  ab  $9000  (36864),  also  im 
oberen  Bereich  des  Basicspei- 
chers.  Glücklicherweise  muß  man 
beim  C  64  nicht  mit  jedem  Byte  gei¬ 
zen,  so  daß  dieser  Verlust  wahr¬ 
scheinlich  erst  beim  Einsatz  fertiger 
Programme  zum  Tragen  kommt. 

Der  Ein/Aus-Schalter  sorgt  dafür, 
daß  man  das  Modul  nicht  ständig 
heraus-  und  hereinstecken  muß, 
wenn  man  zum  Beispiel  Spiele  von 
Diskette  laden  will.  Auch  kann  man 
mittels  des  Befehls  KILL  in  das  nor- 


lich  machen,  das  Programm  anzu¬ 
halten  und  wieder  zu  starten. 

Bis  hierhin  unterscheidet  sich  das 
KFC  Super  nur  wenig  von  bereits 
auf  dem  Markt  befindlichen  Tool¬ 
kits.  Die  eigentliche  Besonderheit 
ist  in  zwei  fest  eingebauten  Sonder¬ 
funktionen  zu  sehen: 

Zum  Emen  ist  eine  Centronics 
Schnittstelle  eingebaut.  Durch  ein 
einfaches  Kabel  verbunden  (User- 
Port-Drucker)  kann  man  über  Vor¬ 
wahl  der  Geräteadresse  verschie¬ 
dene  Druckmodi  erreichen:  Die 
Geräteadresse  16  bewirkt,  daß  alle 
Daten  ohne  Wandlung  in  8-Bit  Wort¬ 
breite  übertragen  werden;  dieser 
Modus  eignet  sich  für  Grafik.  Die 
Geräteadresse  18  wird  als  Textmo¬ 
dus  bezeichnet,  mit  ihm  kann  die 
Groß/Kleinschreibung  des  Com- 
modore  realisiert  werden.  Da  bei 
den  beiden  ersten  Modi  keine  Steu¬ 
erzeichen  beim  Auflisten  erzeugt 
werden,  kann  über  die  Geräte¬ 
adresse  20  in  den  sogenannten  List¬ 
modus  geschaltet  werden.  Die  Steu- 


”  Bild  2.  Der  Befehlsvorrat  des  KFC  Super 

1 .  Die  Programmierhilfen 

AUTO  gibt  automatisch  die  Zeilennummem  vor,  die  Parameter  sind  wählbar 

RENUM  numeriert  alle  Zeilen  neu,  Parameter  sind  wählbar,  GOTO,  GOSUB  ... 
wird  ebenfalls  umnummeriert 


DEL  löscht  Basic-Z.  r.  i  oder  Gruppen 

TRACE  zeigt  die  Zeilennummem  beim  Programmablauf 
FIND  sucht  nach  Zeichen  und  Begriffen 

HELP  zeigt  die  Stelle,  an  der  ein  Programmierfehler  auftrat 

OLD  rettet  nach  einem  NEW  oder  RESET  das  Basic-Programm 

DUMP  Zeigt  die  Variablen  und  ihren  Wert 

2.  Die  Floppy-Befehle 


CATALOG 

STATUS 

DLOAD 

DVERIFY 

DMERGE 

DSAVE 

DISK 


zeigt  das  Directory  ohne  Programmzerstörung 
Anzeige  einer  Floppy-Fehlermeldung 
Programm  von  Diskette  laden 
Programm  mit  der  Diskette  vergleichen 
Programm  an  bestehendes  anhängen 
Programm  auf  Diskette  speichern 

Vereinfachte  Befehlsübergabe  an  die  Floppy  (N,V,R,I,C,S) 


3.  Die  Kassetten-Befehle 

PUT  Schnelles  Speichern  auf  Kassette 

GET  Schnelles  Laden  von  Kassette 

COMP  Schneller  Verify  von  Kassette 

MERGE  Programm  von  Kassette  anhängen 


male  Basic  springen.  Durch 
Drücken  der  Resettaste  kann  man 
das  Toolkit  wieder  reaktivieren.  Al¬ 
lerdings  wird  ein  im  Speicher  be¬ 
findliches  Basic-Programm  dann 
gelöscht. 

Die  Befehlsliste  des  KFC  Super  ist 
so  ausgelegt,  daß  sie  die  tägliche 
Arbeit  und  das  Programmieren  er¬ 
leichtert.  Es  lassen  sich  drei  Grup¬ 
pen  von  Befehlen  unterscheiden: 
Programmierhilfen,  Floppy-Befehle 
und  Kassetten-Befehle  (Bild  2). 

Zusätzlich  stehen  noch  Befehle  zur 
Vereinfachung  des  Programmab¬ 
laufes  wie  PAUSE,  ESC,  REPEAT 
und  OFF  zur  Verfügung,  die  es  mög- 


erzeichen  des  Commodore  werden 
dann  als  Kleinbuchstaben  ausge¬ 
druckt. 

Betrachtet  man  die  Tatsache,  daß 
es  sich  bei  dieser  Schnittstelle  ei¬ 
gentlich  nur  um  eine  Zugabe  han¬ 
delt,  ist  es  doch  erstaunlich,  wie  lei¬ 
stungsfähig  sie  ist.  Leider  wurden 
die  Geräteadressen  so  unglücklich 
gewählt,  daß  es  bei  den  meisten  fer¬ 
tigen  Programmen,  die  eine  Vor¬ 
wahl  der  Druckeradresse  nicht  zu¬ 
lassen,  zu  keiner  Reaktion  des 
Druckers  kommen  wird.  Zweitens 
belegt  das  KFC-Super  einen  sehr 
wichtigen  Speicherbereich,  der  von 
vielen  Textprogrammen  ebenfalls 
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benutzt  wird,  so  daß  die  Zusammen¬ 
arbeit  mit  einigen  Textverarbei¬ 
tungsprogrammen  sicher  nicht  ge¬ 
währleistet  ist. 

Zum  anderen  ist  vom  KFC  Super 
aus  durch  den  Befehl  MMON  der 
Sprung  in  den  eingebauten  Monitor 
möglich.  Der  MMON  64.1  kann  al¬ 
lerdings  auch  von  Basic  aus  mit  SYS 
36864  gestartet  werden.  Die  Befehle 
des  MMON  64. 1  sind  im  wesentli¬ 
chen  mit  den  Befehlen  anderer  Mo- 
nitore  vergleichbar. 

Folgende  Befehle  sind  möglich: 

Ä  Assemblierer! 

B  Bits  (Sprite  Edit) 

C  Speicheririhalte  vergleichen 
D  Disassemblieren 
F  Adreßbereich  füllen 
G  Starten  eines  Maschinen-Programms 
H  Durchsuchen  des  Adreßbereiches 
nach  vorgegebenen  Bytes 
L  Laden  von  Programmen  oder  Daten 
M  Listen  der  Speicherinhalte 
N  Verschieben  eines  Adreßbereichs 
R  Anzeigen  der  Registerinhalte 
S  Äbspeichem  eines  Adreßbereichs 
T  Verschiebung  eines  Adreßbereichs 
X  Rücksprung  zum  Basic 
#  Umrechnung  Dezimal  —  Hexadezimal 
$  Umrechnung  Hexadezimal  —  Dezimal 


Besonders  auffallend  sind  die 
nicht  üblichen  Befehle  B  und  C.  Mit 
dem  Befehl  B  wird  der  Speicherin¬ 
halt  in  einer  3-Byte-Breite  bitweise 
angezeigt.  Da  die  Sprite-Struktur 
ebenfalls  eine  3-Byte-Breite  auf¬ 
weist,  können  damit,  bei  entspre¬ 
chend  gesetzten  Sprite-Parame- 
tern,  Sprites  editiert  werden. 

Der  Befehl  C  ermöglicht  es,  zwei 
Speicherbereiche  miteinander  zu 
vergleichen,  was  bei  Änderungen 
an  bestehenden  Programmen  sehr 
hilfreich  ist.  Insgesammt  ist  das  KFC 
Super  ein  interessantes  Toolkit,  das 
durch  seine  Leistungsfähigkeit  be¬ 
sticht.  Rechnet  man  die  Einzelpreise 
eines  Toolkits,  eines  Monitors  und 
einer  Centronics-Schnittstelle  zu¬ 
sammen  und  vergleicht  sie  mit  dem 
Preis  des  KFC  Super  (198  Mark  für 
den  C  64),  so  steigert  sich  die  Attrak¬ 
tivität  des  KFC  Super  zusätzlich. 

Zu  bedenken,  beziehungsweise 
zu  prüfen  ist  vor  dem  Kauf  die  Ver¬ 
träglichkeit  mit  dem  gewünschten 
Textverarbeitungsprogramm,  denn 
die  Aufgabe  einer  Centronics- 
Schnittstelle  ist  es,  Texte  auf  dem 


Drucker  zu  ermöglichen.  Dies 
scheint  aber  beim  KFC  Super  nicht 
uneingeschränkt  möglich  zu  sein. 
Auch  ist  zu  beachten,  daß  ein  zusätz¬ 
liches  Kabel  gekauft,  beziehungs¬ 
weise  angefertigt  werden  muß,  des¬ 
sen  Materialkosten  nochmals  mit  zir¬ 
ka  50  Mark  zu  Buche  schlagen. 

Besonders  hervorzuheben  sind 
die  durchdachten  Programmierbe¬ 
fehle,  wie  zum  Beispiel  das  RENUM, 
das  nicht  nur  die  Zeilennummern, 
sondern  auch  Sprungbefehle  neu 
nummeriert,  oder  der  CATALOG 
Befehl,  der  keine  vorhandenen  Pro¬ 
gramme  zerstört.  Daß  alle  Befehle 
wie  im  Commodore  Basic  abgekürzt 
werden  können,  erscheint  dann 
schon  fast  als  Selbstverständlich¬ 
keit. 

Obwohl  bei  der  vorliegenden 
Testversion  die  Befehle  ORDER 
zum  Anzeigen  des  Befehlsvorrates 
und  VIEW  zum  Auflisten  der  Spei¬ 
cherbelegung  und  seiner  Auftei¬ 
lung  nicht  funktionierten,  sollte  man 
bei  der  Auswahl  eines  Toolkits  das 
KFC  Modul  mit  in  Betracht  ziehen. 

(Arnd  Wängler) 
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Wir  haben  uns  wirklich  bemüht, 
Vf? —  die  erste  Ausgabe  ohne 
Fehler  zu  produzieren. 

Doch  der  Teufel  steckt 
im  Detail.  Wir  stehen  zu  unseren 
Fehlem  und  wollen  sie  nicht  tot- 
schweigen.  Deshalb  soll  diese  Rubrik  ein 
fester  —  wenn  auch  möglichst  kleiner  — 
Bestandteil  des  64'er  Magazins  werden. 


Alle  Listings,  die  im  64 'er 
abgedruckt  werden, 
sind  vorher  getestet  und  für 
gut  befunden  worden.  Die 
Artikel  wurden  sorgfältig 
verfaßt  und  auf  Korrektheit 
überprüft.  Dennoch  kann 
sich  in  dem  einen  oder  ande¬ 
ren  Fall  eine  Unstimmigkeit 
oder  eine  falsche  Aussage 
einschleichen.  Wir  bitten  un¬ 
sere  Leser  um  Verständnis 
und  eine  tätige  Mitarbeit. 
Konstruktive  Kritik  ist  immer 
willkommen. 

Was  war  nun  in  der  April- 


Ausgabe  nicht  richtig,  un¬ 
vollständig  oder  gar  falsch? 

SX  64  im  Test,  Seite  32 

Das  Bild  4  ist  kein  kleines 
Beispiel  für  die  hochauflö¬ 
sende  Grafik  des  SX  64.  Das 
Bild  zeigt  einen  Ausschnitt 
aus  der  Christmas-Demo 
von  der  Commodore- Weih¬ 
nachtsdiskette  und  besteht 
lediglich  aus  Grafikzeichen, 
ist  also  keine  hochauflösen¬ 
de  Grafik.  Wir  danken  unse¬ 
rem  Leser  Detlef  Wacker  für 
den  Hinweis. 


Sprites  schneller  bewegen, 

Seite  71 

In  dem  oben  genannten 
Artikel  ist  folgendes  nicht  er¬ 
wähnt  worden:  Um  die 
Blöcke  32  bis  35  zum  Spei¬ 
chern  von  Sprites  zu  benut¬ 
zen,  muß  der  Beginn  des 
Speicherbereichs  wie  folgt 
geändert  werden. 

POKE  44,10:POKE  2560,0: 
NEW 

Beim  Abdruck  wurde  die 
Änderung  der  Speicherstel¬ 
le  44  vergessen 

(Herbert  Kunz). 

Caesar,  Seite  78 

Die  Zeile  1600  lautet  kor¬ 
rekt: 

1600  GOSUB  10000.  In  den 
beiden  Zeilen  7450  und  7800 
sind  die  REMs  zu  entfernen. 

Tips  &  Tricks,  Seite  108 

Die  Joystickabfrage  ist  für 
einen  korrekten  Lauf  durch 
folgende  Zeile  zu  ergänzen: 
80  GOTO  20 

(Herget  Ursula) 

Disk  Copy,  Seite  95 

In  der  letzten  Spalte  unter 
»Wichtige  Bedienungshin¬ 
weise«,  Punkt  3  muß  es  rich¬ 
tig  heißen: 

»PRINT  PE«  und  nicht  »PRINT 
PR«. 


Im  Listing  »Initialisierung« 
sollte  in  Zeile  310  der 
GOSUB-Befehle  in:  GOSUB 
770:...  abgeändert  werden. 
Der  alte  Springbefehl  weist 
auf  die  REM-Zeile  760.  Gibt 
man  das  Programm  ohne 
REMs  ein,  kann  der  Sprung 
nicht  mehr  ausgeführt  wer¬ 
den.  (Werner  Rittmann) 
Dieses  Programm  Disk  Co¬ 
py  hat  übrigens  sehr  großen 
Zuspruch  gefunden.  Für  die 
Anfänger  unter  unseren  Le¬ 
sern  sei  noch  erwähnt,  daß 
die  Fehlermeldung  »BREAK 
IN  230«  nach  Ausführung  des 
zweiten  Punktes  der  Bedie¬ 
nungsanleitung  völlig  kor¬ 
rekt  ist  und  den  weiteren  Ab¬ 
lauf  in  keiner  Weise  beein¬ 
flußt. 

P.S.  Wir  suchen  noch  ei¬ 
nen  hübschen  Namen  für  un¬ 
ser  Fehlerteufelchen.  Anre¬ 
gungen  aller  Art  werden 
gerne  entgegengenommen. 

P.P.S.  Viele  Leser  haben 
bei  uns  angefragt,  ob  die 
Hefte  1 ,  2  und  3  noch  zu  ha¬ 
ben  sind. 

Die  Ausgabe  4  vom  April 
war  unser  Erstlingswerk. 
Deshalb  können  wir  auch  mit 
keinen  früheren  Ausgaben 
dienen.  (aa) 
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Der  GP-700A  ist  ein  7-Farb-Ma- 
trixdr  ucker.  Der  Farbträger 
(siehe  Bild  1  und  2)  besteht  aus 
einer  Kassette  mit  einem  4-Farb- 
Band.  Die  zusätzlichen  drei  Misch¬ 
farben  werden  erzeugt  durch  Über¬ 
einanderdrucken.  Um  die  ge¬ 
wünschte  Farbe  zu  erhalten,  wird 
das  Farbband  in  der  Höhe  verstellt 
—  ähnlich  wie  man  es  von  den 
schwarz-roten  Farbbändern  für 
Schreibmaschinen  her  kennt.  Der 
GP-700  kostet  rund  1500  Mark,  In 


der  Standardausführung  wird  der 
Farbdrucker  mit  einer  Centronics- 
Schnittstelle  geliefert  (siehe  Bild  3). 
Aber  auch  Commodore-Besitzer 
können  ihn  ohne  externes  Interface 
bekommen.  Dann  wird  das  C  64- 
Interface  vom  Anbieter  eingebaut 
und  kostet  dann  etwas  mehr  als  1700 
Mark.  Was  bekommt  man  dafür? 
Der  Bedienungskomfort  ist  relativ 
hoch.  Der  GP-700A  besitzt  neben 
der  Stop-Taste  einen  Zeilenvor¬ 
schubschalter  (line  feed),  einen  Sei¬ 
tenvorschub  (form  feed)  und  eine 
Copy-Taste.  Diese  Taste  ermöglicht 
bei  manchen  Geräten  eine  Hardco¬ 


Bild  •».  GP-700A  ohne 

Schallschutzhaube.  Die 

Farbbandkassette  ist 

schräg  eingebaut. 


py  des  Bildschirms  (low-res),  bei  an¬ 
deren  Geräten  wiederum  bewirkt 
sie  nichts,  denn  diese  Funktion  ist 
optional  nur  gegen  Aufpreis  erhält¬ 
lich. 

Neben  der  Darstellung  normaler 
Standardzeichen  (Groß-  und  Klein¬ 
schrift  mit  echten,  aber  gestauchten 
Unterlängen)  und  doppeltbreiten 
Zeichen  ist  der  GP-700  auch  voll  gra¬ 
fikfähig.  Diese  drei  Betriebsarten 
können  gleichzeitig  auf  der  glei¬ 
chen  Zeile  dargestellt  werden,  Es  ist 
möglich,  den  Zeilenabstand  sowie 
die  Seitenlange  programmgesteu¬ 
ert  zu  verändern.  Auch  die  Zeichen¬ 
größe  kann  entweder  10  oder  13,3 
Zeichen/Zoll  betragen.  Um  im 
Grafik-  und  Farbmodus  zu  arbeiten, 
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sind  eine  ganze  Reihe  von  Steuer¬ 
signalen  notwendig,  die  hier  jedoch 
nicht  weiter  erwähnt  werden  sollen. 

Wenn  man  sich  die  Hardcopys 
ansieht  (siehe  Bild  4),  die  der  GP-700 
zeichnet,  sollte  man  sich  nicht  wun¬ 
dern,  wenn  die  dargestellten  Far¬ 
ben  von  den  Bildschirmfarben  ab¬ 
weichen.  Dann  wird  zum  Beispiel 
ein  rotbrauner  Farbton  orange  oder 
hellblau  wird  rosa.  Aber  das  sollte 
nicht  weiter  stören.  Anfangs  freut 
man  sich  doch  über  die  vielen  Far¬ 
ben,  und  später  hat  man  sich  mit  die¬ 
sen  Farbverschiebungen  abgefun¬ 
den.  Und  es  ist  auch  klar:  Wenn  der 
Computer  16  Farben  darstellt  und 
der  Drucker  nur  in  der  Lage  ist,  7 
Farben  zu  drucken,  muß  es  ja  Ab¬ 
weichungen  geben. 
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Der  Farbkontrast  ist  eigentlich  re¬ 
lativ  hoch  —  zumindest  während  der 
ersten  Hardcopys  mit  einem  neuen 
Farbband.  Falls  die  Tinte  zur  Neige 
geht,  kann  man  die  vier  Tintenbe¬ 
hälter  einzeln  auswechseln.  Was 
leider  nicht  gelöst  wurde,  ist  die 
»Geräuschentwicklung«,  die  bei  der 
Erstellung  einer  Hardcopy  auftritt. 


. .  Aus  deo  4 


Aber  die  hat  auch  ihre  Vorteile:  Ein 
Spaziergang  durch  das  Haus,  um 
sich  zum  Beispiel  die  Beine  zu  ver¬ 
treten  oder  bzw.  zwei  Etagen  tiefer 
in  der  Küche  ein  Ei  in  die  Pfanne  zu 
schlagen  und  es  genüßlich  zu  ver¬ 
speisen,  ist  kein  Problem:  Erstens 
hört  man,  wenn  der  Drucker  seine 
Hardcopy  beendet  hat  und  zweitens 
wird  man  dann  mit  dem  Essen  so¬ 
wieso  schon  fertig  sein.  Nur  wenn 
nebenan  jemand  mit  einer  Kreissä¬ 
ge  arbeitet,  kann  man  Schwierigkei¬ 
ten  bekommen  zu  erkennen,  was 
denn  jetzt  aufgehört  hat,  die  Kreissä¬ 
ge  oder  der  Drucker. 

Aber  wer  sich  den  Farbdrucker 
kaufen  will,  sollte  sich  überlegen,  zu 
welchem  Zweck  er  die  Farbe 
braucht,  Meiner  Meinung  nach  — 
jeder  mag  andere  Schwerpunkte 
setzen  —  kann  ein  Plotter,  was  Dia¬ 
gramme  und  nichtflächige  Grafiken 
betrifft,  wesentlich  effektiver  arbei¬ 
ten.  Nur  bei  Hardcopys  mit  großen 
Farbflächen  sehe  ich  eine  mögli¬ 
cherweise  sinnvolle  Anwendung, 
etwa  zum  Einkleben  ms  Album  oder 
zum  Herumzeigen  bei  (sehr  guten) 
Freunden. 

Ein  Interessent  von  Farbdruckern 
sollte  sich  überlegen,  ob  er  nicht  lie¬ 
ber  etwas  Geld  drauflegt  und  sich 
einen  entsprechenden  Tintenstrahl¬ 
drucker  anlegt.  Der  ist  nämlich 
auch  schon  für  unter  2000  Mark  zu 
haben.  Die  farblichen  Qualitäten 
sind  zwar  nicht  viel  besser,  aber  er¬ 
stens  flüstert  der  Drucker  nur  und 
zweitens  nimmt  die  Farbsättigung 
nicht  mit  der  Zeit  ab.  (gk) 
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C  64/VC  20 


Der  Serielle  Bus  des  VC  20 
und  des  Commodore  64 


Über  den  seriellen  Bus  werden  alle  wichtigen  Peripheriegeräte, 
zum  Beispiel  der  Drucker  und  das  Floppy-Laufwerk,  an  den  VC  20 
und  den  Commodore  64  angeschlossen.  Im  folgenden  soll  die 
Arbeitsweise  dieses  Busses  anhand  des  Betriebssystems  des  VC  20  unter 
Berücksichtigung  der  Eigenheiten  beim  Commodore  64  vorgestellt  werden. 


Commodore  hat  schon  bei  seinen 
früheren  Modellen  PET,  CBM 
3032  und  CBM  8032  eine  etwas 
modifizierte  Form  des  IEEE-488 
oder  IEC-Bus  verwendet.  Dieser 
Bus  ist  in  der  Literatur  mittlerweile 
auch  für  die  CBMs  sehr  gut  doku¬ 
mentiert  (siehe  Literaturverzeichnis 
[1]  bis  [5] ).  Für  den  neuen  Bus,  der 
beim  VC20  und  Commodore  64  ein¬ 
gesetzt  wird,  trifft  das  leider  nicht  zu, 
da  er  nicht  genormt  ist  und  Commo¬ 
dore  detaillierte  Informationen  über 
ihn  nicht  oder  noch  nicht  veröffent¬ 
licht  hat.  Der  einzige  mir  bekannte 
Artikel  [8]  ist  in  den  USA  erschienen 
und  stammt  von  »Commodore-Guru« 
Jim  Butterfield. 

Worin  unterscheidet  sich  nun  die¬ 
ser  neue  Bus  von  seinem  Vorgän¬ 
ger? 

1 .  Er  hat  weniger  Leitungen 

2.  Die  Daten  werden  seriell  übertra¬ 
gen 

3.  Er  ist  langsamer  als  der 
IEEE-488-Bus. 

Der  serielle  Commodore-Bus  ist 
physikalisch  ein  bidirektioneller 
Bus,  der  aus  sechs  Signalleitungen 
(siehe  Tabelle  1)  besteht.  Der  paral¬ 
lele  CBM-Bus  ist  zirka  fünfmal 
schneller.  Die  Verwandtschaft  mit 
seinem  Vorgänger  kann  er  aber 
nicht  verleugnen,  denn  die  Art,  wie 
angeschlossene  Geräte  angespro¬ 
chen  werden  entspricht  dem  IEEE- 
Bus.  Es  gibt  zwei  Betriebsarten:  Den 
Kommando-  und  den  Datenmodus. 

Das  gesamte  Geschehen  auf  dem 
Bus  wird  von  dem  »Controller«,  un¬ 
serem  VC  20  oder  dem  C  64  über¬ 
wacht  und  gesteuert  (Bild  1).  Es  darf 
an  dem  Bus  nur  ein  Controller  ange¬ 
schlossen  sein.  Alle  Geräte  dürfen 
je  nach  ihren  Möglichkeiten  als  »Tal- 
ker«  Daten  auf  den  Bus  geben  und 
als  »Listener«  Daten  vom  Bus  lesen. 


Ein  Drucker  wird  nur  Listenerfunk- 
tionen,  ein  Floppylaufwerk  Liste¬ 
ner-  und  Talkerfunktionen  haben. 
Selbstverständlich  besitzt  unser 
Computer  beide  Funktionen. 

Damit  die  Geräte  einzeln  vom 
Computer  angesprochen  werden 
können,  besitzen  sie  eine  Geräte¬ 
adresse,  die  Primäradresse.  Sie  ist 
für  die  Commodoregeräte  stan¬ 
dardmäßig  für  den  Drucker  auf  4 
und  für  das  Floppy lä1'1  verk  auf  8 
gesetzt.  Um  besondere  Befehle  an 
ein  Gerät  übermitteln  zu  können, 
zum  Beispiel  die  Anwahl  einer  be¬ 
stimmten  Druckart  bei  einem 
Drucker,  besitzt  es  häufig  noch  eine 
Sekundäradresse.  Diese  Adressen 
sind  für  die  Geräte  unterschiedlich. 
Ihre  Bedeutung  ist  dem  jeweiligen 
Handbuch  zu  entnehmen. 


Achtung,  ich  sende 


Wie  erfährt  nun  ein  angeschlosse¬ 
nes  Gerät,  daß  es  gemeint  ist?  Nun, 
dafür  gibt  es  die  Leitung  »ATN«,  Hat 
der  Controller  diese  Leitung  auf 
»Wahr«  (Erklärung  siehe  weiter  un¬ 
ten)  gesetzt,  unterbricht  jedes  Gerät 
seine  Tätigkeit,  denn  es  weiß:  Jetzt 
kommt  ein  Befehl.  Die  Information, 
die  dann  vom  Controller  auf  den  Bus 
gelegt  wird,  wird  von  den  Geräten 
gelesen  und  als  Primäradresse  in¬ 
terpretiert.  Alle  Geräte  bestätigen 
den  Empfang.  Die  nicht  angespro¬ 
chenen  Geräte  setzen,  sobald  die 
ATN-Leitung  wieder  auf  »Falsch« 
gesetzt  ist,  ihre  unterbrochene  Tä¬ 
tigkeit  fort  und  kümmern  sich  nicht 
mehr  um  das  weitere  Geschehen 
auf  dem  Bus. 

Der  Computer  teilt  dem  adres¬ 
sierten  Gerät  mit,  ob  es  als  Talker 
oder  als  Listener  agieren  soll.  Über 


die  Sekundäradresse  werden  viel¬ 
leicht  noch  weitere  Befehle  über¬ 
mittelt.  Dann  wird  die  »ATN«- 
Leitung  vom  Computer  auf  »Falsch« 
gesetzt.  Jetzt  kann  zwischen  Compu¬ 
ter  und  adressiertem  Gerät  der  Da¬ 
tenaustausch  stattfinden. 

Nachdem  das  letzte  Datum  gesen¬ 
det  und  empfangen  wurde,  zieht 
der  Computer  die  »ATN«-Leitung 
wieder  auf  »Wahr«;  alle  angeschlos¬ 
senen  Geräte  reagieren  wie  oben 
beschrieben  und  holen  sich  wieder 
die  Primäradresse.  Der  Compter 
sendet  dann  zum  Beispiel  einen  »Un¬ 
listen«  —  oder  einen  »Untalk«-Befehl 
an  das  angesprochene  Gerät. 

Ein  Problem  gibt  es  aber  noch: 
Wie  weiß  der  Talker,  daß  der  Liste¬ 
ner  die  Daten  auch  richtig  übernom¬ 
men  hat?  Beim  IEEE-Bus  wird  das 
mit  einer  Rückmeldung  über  spe¬ 
zielle  Leitungen  —  den  Handshake¬ 
leitungen  —  im  Quittungsbetrieb  re¬ 
alisiert.  Jedes  Gerät  hat  die  Mög¬ 
lichkeit,  über  die  jeweüige  Leitung 
den  anderen  Geräten  folgende  In¬ 
formationen  zu  übermitteln: 

D  AV  die  Daten  auf  dem  Datenbus 
sind  gültig  (nur  Talker) 

NDAC  die  Daten  auf  dem  Daten¬ 
bus  habe  ich  gelesen  (nur  Listener) 
NRFD  ich  bin  für  weitere  Daten 
bereit  (nur  Listener) 

Da  aber  beim  seriellen  Bus  insge¬ 
samt  nur  sechs  Leitungen  (siehe  Ta¬ 
belle  1)  zur  Verfügung  stehen,  ist 
der  3-Leitung-Handshake-Betrieb 
hier  icht  durchführbar. 

Doch  bevor  wir  in  den  Ablauf  des 
»Handshake-Betriebes«  beim  seriel¬ 
len  Bus  einsteigen,  etwas  über  die 
»Logik-Pegel«  auf  dem  Bus. 

Der  Bus  wird  in  negativer  Logik 
betrieben,  das  heißt  ein  Low  (zirka  0 
Volt)  wird  als  »Wahr«,  ein  High  (zirka 
5  Volt)  als  »Falsch«  betrachtet. 
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5i gnal 

St  ec  k  er  - 
pinnr. 

Bedeutung 

IFC 

6 

Inter-face  Clear 

Leitung  um  dis  angeschlcssenen  Geraete  in  einen 
definierten  Antangszustand  zu  versetzen  (RESET) 

DATA 

5 

Leitung  Euer  Daten  < IN/OUT) 

CLK 

4 

CLOCK 

Leitung  un  das  Handshakeprotokoll  der  Datenuetertragung 
(Taktleitung)  zu  kontrol 1 ieren  (IN/OUT) 

ATM 

3 

ATTENTION 

Leitung  un  mitzuteilen  ob  Daten  oder  Kommandos  uebertragen 
werden 

GND 

2 

GROUND 

Digitale  nasse 

Tabelle  1.  Signale 

SRO 

1 

SERVICE  REQUEST 

Leitunq  un  dem  'Controller'  mitzuie: len,  dass  Daten  bereit 
stehen  (Diese  Leitung  wird  vom  Betriebssytem  nicht  bedient!) 

und  Steckerbeiegung 
des  seriellen  Busses 

Es  ergibt  sich  damit  folgende  Zu¬ 
ordnung  zwischen  der  Spannung 
auf  der  Leitung  und  ihrem  logischen 
Wert: 

High  =  H-Pegel  =  zirka  +  5  V  =  lo¬ 
gisch  0  =  »Falsch« 

Low  =  L-Pegel  =  zirka  0  V  =  logisch 
1  =  »Wahr« 


Low  und  High 

Warum  das?  Sonst  ist  es  doch  in 
der  Digital-Techmk  genau  anders 
herum!  Der  Grund  liegt  darin,  daß 
alle  Geräte  an  den  Leitungen  ange¬ 
schlossen  sind.  Die  Ausgänge  zum 
Bus  hin  sind  über  »Open-Kollektor- 
Treiber«  realisiert.  Die  Eingänge 
sind  in  normaler  Transistor- 
Transistor-Logik  (TTL)  ausgeführt. 
Die  Beschaltung  einer  Leitung  des 
seriellen  Busses  beim  VC  20  ist  in 
Bild  2  am  Beispiel  der  Data-Leitung 
dargestellt. 


Serieller  Bus  7 

WW  er 


VC2Ö 

Cum  KULLER 

Fl oppv 

1  Drucker 

TALKER 

TALKER 

LISTENER 

LISTENER 

|  LISTENER 

Bild  1.  Das  Bus-System 


Bild  2.  Die  Beschaltung  der  Busleitungen 
(die  DATA-Leitung  beim  VC  20) 


Durch  diese  Schaltungsausle¬ 
gung  ist  der  aktive  Zustand  des  Bus¬ 
ses  der  L-Pegel,  das  heißt  wenn 
kein  Gerät  die  Leitung  auf  0  Volt 
zieht,  wird  die  Spannung  auf  der 
Busleitung  beinahe  5  Volt  haben,  al¬ 
so  High  (=  Falsch)  sein.  Ein  Bus,  an 
dem  keine  Peripheriegeräte  ange¬ 
schlossen  sind,  wird  also  immer  im 
Zustand  »Falsch«  verharren  —  der 
Buscontroller  wird  dann  beim  beim 
Versuch,  ein  Gerät  anzusprechen, 
immer  die  Meldung  »Falsch«  erhal¬ 
ten  und  daher  einen  nicht  ordnungs¬ 
gemäßen  Zustand  erkennen  kön¬ 
nen. 

Noch  einen  Vorteil  hat  diese 
Schaltung.  Die  Übertragung  von  Da¬ 
ten  darf  nicht  schneller  ex  Algen  als 
das  langsamste  Gerät  braucht,  um 
die  Daten  lesen  zu  könen.  Ein  klei¬ 
nes  Beispiel: 

Ein  Talker  möchte  an  zwei  Liste- 
ner  Daten  senden.  Listener  1  ist  be¬ 
reit  neue  Daten  zu  übernehmen,  er 
hat  also  seinen  für  diese  Meldung 
gedachten  Ausgang  auf  H-Pegel  (= 
»Falsch«)  gelegt.  Der  zweite  Listener 
ist  noch  nicht  soweit,  er  hält  seinen 
Ausgang  noch  auf  »Wahr«.  Damit  ist 


die  Leitung,  auf  die  beide  Ausgän¬ 
ge  arbeiten,  ebenfalls  »Wahr«  —  der 
Talker  weiß,  daß  er  noch  warten 
muß.  Er  legt  seinen  Ausgang  auf 
»Falsch«.  Die  Leitung  wird,  nach¬ 
dem  kein  weiteres  Gerät  sie  auf 
»Wahr«  hält,  ebenfalls  »Falsch«  — 
der  Talker  weiß,  jetzt  kann  er  eine 
neue  Information  auf  die  Datenlei¬ 
tung  legen. 

Diese  Zusammenhänge  wollen 
wir  in  zwei  Merksätzen  zusammen¬ 
fassen: 

Wahr  wird  eine  Leitung,  wenn  minde¬ 
stens  eines  der  angeschlossenen 
Geräte  »Wahr«  sendet. 

Falsch  wird  eine  Leitung  nur  dann, 
wenn  alle  Geräte  auf  dieser  Leitung 
ein  »Falsch«  senden. 

Damit  sind  die  Logikzustände  auf 
dem  seriellen  Bus  beschrieben. 
Diese  Definition  ist  überaus  wichtig, 
und  man  muß  sie  sich  ständig  bei 
der  Betrachtung  des  Geschehens 
auf  dem  Bus  vor  Augen  halten .  Nach 
diesem  kleinen  Exkurs  in  die  Welt 
der  Lows  und  Highs  wollen  wir  jetzt 
betrachten,  wie  Daten  auf  dem  se¬ 
riellen  Bus  übertragen  werden. 
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Die  Datenübertragung 

Die  für  die  Datenübertragung 
wichtigen  Leitungen  sind  die  D  ATA- 
und  die  CLK-Leitung.  Die  Übertra¬ 
gung  eines  Bytes  (=  ein  Datenwort 
aus  acht  Bit)  erfolgt  bitweise,  begin¬ 
nend  mit  dem  niederwertigsten  Bit, 
das  auf  die  DATA-Leitung  gelegt 
wird,  Die  Übertragung  eines  Bytes 
erfolgt  im  Handshake-Betrieb,  das 
heißt  mit  Rückmeldung  vom  Liste- 
ner,  daß  das  Byte  empfangen  wur¬ 
de  und  das  nächste  gesendet  wer¬ 
den  kann.  Verfolgen  wir  einmal  den 
Ablauf  der  Übertragung  eines  By¬ 
tes  anhand  des  Zeitablaufdiagram- 
mes  Bild  3  und  des  Ablauf- 
Diagrammes  Bild  4. 

Vorbereitung  zur  Übertragung  eines  Bytes 
CLK-  und  DATA-Leitung  werden 
beide  auf  »Wahr«  gehalten,  wobei 
der  Talker  die  CLK-  und  der  Liste- 
ner  beziehungsweise  alle  Listener 
die  DATA-Leitung  auf  0  Volt  (= 
»Wahr«)  ziehen.  Mit  diesen  Signalen 
wird  jeweils  ein  »Hier  bin  ich«  signa¬ 
lisiert. 

CLK-Lei  tunq 
Wahr  Falsch 


Verb er ei  tunq 

Talker  ->  CLK  =  W 
Listener  ->  DATA  =  W 


Beginn 

Talker  ->  CLK  =  F 


Bereit  tuer  Empfang 
ohne  EO:  = 
mit  EDI  =  - 

Listener  ->  DATA  =  F 

Talker  ->,  CLK  =  W 

-iatenei  - >  DATA  -  W 

Listener  -  DATA  =  F 

Talker  ->  CLK  =  W 


Uebertraqunq 

Talker  oibt  Bit  aut 
DATA  <W  oder  F) 


Tal  1:  er 


CLK  =  F 


Talker  :•  CLK  =  W 
Talker  DATA  =  F 


(nacheinander  fuer 
8  Bit  wiederholen) 


Bestaeti qunq 

Listener  ->  DATA  =  W 


Zustand  wieder  wie  bei 
Beginn  (Vorbereitung) 


Beginn  der  Übertragung 

Wenn  der  Talker  ein  Byte  auf  dem 
Bus  ausgeben  will,  läßt  er  die  CLK- 
Leitung  auf  »Falsch«  gehen.  Dieses 
Signal  entspricht  einem  »Ich  bin  be¬ 
reit,  ein  Zeichen  auszugeben«.  Der 


oder  die  Listener  (in  Zukunft  werde 
ich  nur  mehr  von  einem  Listener 
sprechen)  müssen  dieses  Signal  er¬ 
kennen  und  beantworten.  Da  der  Li¬ 
stener  zu  diesem  Zeitpunkt  viel¬ 
leicht  noch  beschäftigt  ist,  muß  die 


DATA-Leitung 
Wahr  Falsch 


G  SiSR  QfU-ir 


4* 


SENDE  BYTE 

Set 

:e  CLK-Lei  tunq  auf  'Falsch-' 

DO 

JNtlL  DATA-Leitung  'Falsch’  is 

t 

Pruefe  DATA-Leitung 

— __ _  EDI 

nein  '  . _ 

? 

Set 

re  CLK-Lei tune  auf  'Wann" 

Werte  aund.  2ÖÖ  us 

DU 

UNTIL  DATA-Lei tunq  'Wahr’  ist 

Fruefe  ÖATA-Lei  tunq 

DO 

UMTIL  DATA-Leitung  'Falsch' 

Et 

Pruefe  DATA-Lei tune 

Set 

:e  CLK-Leitung  auf  'Wahr-' 

DO 

JNTTL  al!e  3  Bi t  gesendet  sind 

Bit  gesetzt 

nein  "  - - -  - 

?  — - 

j' 

Setze  DAT A-Lei  tunq  auf  'Wahr' 

Setze  DATA-Leitung  auf  Falsch' 

Setze  CLK-Lei tunq  auf  "Falsch’ 

Warte  mind.  20  us 

Setze  CLK-Leitung  auf  "Wahr’ 

Setze  DATS-Leiluna  auf  'Falsch’ 

T  = 

0 

DO 

UMTIL  DATA-Lei tunq  'Wahr'  ist 

fl 

Pruefe  DATA-Leitung 

'  "  — - - 

1 

ms 

7  - 

ja 

Fehlermeldung 

Übertragung  des  Byte  OK 

Bild  4.  Ablaufschema  »Sende  ein  Byte« 
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1 

— 1 — 
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EMPFANGE  BYTE 

DO  UNTIL  CLK-Leitung  'Falsch'  ist 
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Bild  3.  Zeitablaufdiagramm  »Übertragung  eines  Bytes«  (nicht  maßstabgetreu) 
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Bild  5.  Ablaufschema  »Empfange  ein  Byte« 
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Quittierung  dieses  Signals  nicht  so¬ 
fort  erfolgen,  da  hier  vom  Talker  ei¬ 
ne  Zeitüberschreitung  nicht  über¬ 
wacht  wird. 

Bereit  für  den  Datenempfang 

Der  Listener  ist  bereit  für  das 
nächste  Byte;  er  gibt  die  DATA- 
Leitung  frei  und  sagt  damit  »Ich  bin 
bereit,  Daten  zu  empfangen«.  Wenn 
alle  Listener  das  getan  haben,  ist  die 
DATA-Leitung  jetzt  »Falsch«.  Der 
Talker  erkennt  das  und  weiß,  jetzt 
sind  alle  für  neue  Daten  bereit.  Nun 
gibt  es  zwei  Möglichkeiten,  was  als 
nächstes  passieren  kann: 

a.  Normales  Senden. 

Der  Talker  zieht  die  CLK-Leitung 
innerhalb  von  200  Mikrosekunden 
—  üblicherweise  innerhalb  von  60 
Mikrosekunden  —  auf  »Wahr«,  also 
auf  0  Volt  und  bestätigt  damit  die 
Meldung.  Dann  beginnt  er  das  Byte 
bitweise  zu  senden. 

b.  EOI-Meldung(=  »Dieses  Byte  ist 
das  letzte«). 

Wenn  der  Talker  die  Meldung 
nicht  innerhalb  von  200  Mikrose¬ 
kunden  bestätigt,  weiß  der  Listener, 
daß  der  Talker  ihm  mitteilen  will, 
daß  das  Byte,  das  jetzt  gesendet 
werden  soll,  das  letzte  ist.  Es  kann 
das  letzte  in  einem  sequentiellen  Fi¬ 
le  oder  in  einem  Satz  eines  relativen 


Files  sein.  Wenn  der  Listener  also 
merkt,  daß  der  Talker  das  Signal 
EOI  sendet,  muß  er  für  mindestens 
60  Mikrosekunden  die  DATA-Lei¬ 
tung  auf  »Wahr«  ziehen  und  dann 
wieder  auf  »Falsch«  setzen.  Damit 
hat  er  dem  Talker  den  Empfang  des 
EOI-Signals  bestätigt.  Der  Talker 
zieht  nun  die  CLK-Leitung  innerhalb 
von  60  Mikrosekunden  auf  »Wahr« 
und  beginnt  dann  das  Byte  bitweise 
zu  senden. 

Die  CLK-Leitung  ist  jetzt,  auch 
wenn  die  EOI-Sequenz  durchge¬ 
führt  wurde,  »Wahr«. 

Übertragung  des  Bytes 

Es  werden  jetzt  alle  8  Bits  eines  By¬ 
tes  sequentiell,  beginnend  mit  dem 
niederwertigsten  Bit  ohne  »Hand¬ 
shake«  auf  die  DATA-Leitung  ge¬ 
legt.  Beide  Leitungen,  CLK  und  DA¬ 
TA  werden  jetzt  allein  vom  Talker 
kontrolliert.  Für  jedes  Bit,  gesetzt 
oder  nicht,  wird  die  DATA-Leitung 
auf  »Wahr«  oder  »Falsch«  gesetzt. 
Wenn  das  Bit  auf  der  DATA-Leitung 
stabil  steht,  wird  die  CLK-Leitung 
auf  »Falsch«  gesetzt  um  mitzuteilen, 
daß  das  Bit  auf  der  DATA-Leitung 
gültig  ist.  Dieser  Vorgang  dauert 
maximal  70  Mikrosekunden.  Der  Li¬ 
stener  hat  jetzt  wenigstens  20  Mikro¬ 
sekunden  Zeit  das  Bit  zv  .'«•  sen,  da 


der  Talker  während  dieser  Zeit  bei¬ 
de  Leitungen  in  diesem  stabilen  Zu¬ 
stand  hält. 

Achtung:  Für  den  Commodore  64 
muß  diese  Zeit  auf  mindestens  60 
Mikrosekunden  verlängert  wer¬ 
den,  da  ein  Interrupt  durch  den  Vi¬ 
deocontroller  VIC  6567  42  Mikrose¬ 
kunden  dauert  und  Daten  deshalb 
in  dieser  Zeit  nicht  empfangen  wer¬ 
den  können. 

Wie  schon  oben  gesagt,  spielt  der 
Listener  hier  eine  komplett  passive 
Rolle.  Er  wartet  darauf,  daß  die 
CLK-Leitung  auf  »Falsch«  geht,  liest 
das  Bit,  speichert  es  und  bereitet 
sich  auf  das  nächste  Bit  vor,  wenn 
die  CLK-Leitung  wieder  »Wahr« 
wird.  Nach  Ablauf  der  »Lesezeit« 
zieht  der  Talker  die  CLK-Leitung 
wieder  auf  »Wahr«,  setzt  die  DATA- 
Leitung  auf  »Falsch«  und  bereitet 
sich  für  das  nächste  Bit  vor. 
Empfangsbestätigung 

Nachdem  das  8.  Bit  gesendet  wor¬ 
den  ist,  muß  der  Listener  den  Emp¬ 
fang  des  Bytes  bestätigen.  Da  in  die¬ 
sem  Moment  die  CLK-Leitung 
»Wahr«  und  die  DATA-Leitung 
»Falsch«  ist,  zieht  der  Listener  die 
Data-Leitung  auf  »Wahr«.  Der  Tal¬ 
ker  muß  demnach  nach  dem  letzten 
Bit  die  Data-Leitung  überwachen. 
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Innerhalb  von  einer  Millisekunde 
muß  sie  auf  »Wahr«  liegen,  andern¬ 
falls  gibt  der  Talker  eventuell  eine 
Fehlermeldung  aus,  da  die  Übertra¬ 
gung  nicht  ordnungsgemäß  abge¬ 
laufen  ist, 

Damit  sind  wir  am  Ende  der  Über¬ 
tragung  eines  Bytes.  Der  Talker  hält 
die  CLK-,  der  Listener  die  DATA- 
Leitung  auf  »Wahr«,  Wir  könnten 
jetzt  beim  Punkt  »Beginn  der  Über¬ 
tragung«  das  nächste  Byte  senden, 
wenn  kein  EOI  aufgetreten  ist,  Ist 
ein  EOI  bei  der  letzten  Übertragung 
gesendet  und  empfangen  worden, 
ist  die  Übertragung  beendet,  beide 
T  ieitungen  werden  freigegeben  und 
sind  damit  »Falsch«. 

Wir  wissen  mittlerweile  wie  ein 
Byte  übertragen  wird,  doch  wie 
werden  zum  Beispiel  die  Primär¬ 
adresse  oder  Befehle  übertragen? 
Wie  schon  weiter  oben  gesagt,  gibt 
es  eine  besondere  Leitung  —  ATN 
—  mit  der  der  Controller  allen  ange¬ 
schlossenen  (und  natürlich  auch  ein¬ 
geschalteten)  Geräten  mitteilt  »Paßt 
alle  auf!  Ich  will  euch  was  sagen«. 
Der  Controller  ist  normalerweise 
der  einzige,  der  diese  Leitung  auf 
»Wahr«  ziehen  darf.  Während  er  al¬ 
so  die  ATN-Leitung  auf  »Wahr«  hält, 
sendet  er  auf  der  DATA-Leitung  Da¬ 
ten.  Die  Übertragung  dieser  Daten 
erfolgt  genauso  mit  Handshake  wie 
oben  beschrieben  —  nur  sind  es 
diesmal  eben  keine  Daten  sondern 
Befehle.  Darunter  fallen  die  Busbe¬ 
fehle  »Talk«,  »Listen«,  »Untalk«  und 
»Unlisten«.  Auch  die  Geräteadres¬ 
se,  die  Sekundäradresse  und  die 
Sekundärbefehle  »OPEN«  und 
»CLOSE«  werden,  während  die 
ATN-Leitung  »WAHR«  ist,  gesendet. 
Der  Empfang  dieser  Befehle  wird 
von  allen  angeschlossenen  Geräten 
bestätigt,  aber  nur  die  tatsächlich 
angesprochenen  führen  den  über¬ 
mittelten  Befehl  aus.  Noch  einmal: 
Wird  ATN  auf  »Wahr«  gezogen,  un¬ 
terbrechen  alle  angeschlossenen 
Geräte  ihre  derzeitigen  Aktionen. 
Der  Controller  zieht  die  CLK- 
Leitung  auf  »Wahr«,  da  er  anschlie¬ 
ßend  Daten  senden  will. 

Die  Geräte  setzen  ihre  Ausgänge 
zur  CLK-Leitung  auf  »Falsch«  (sie 
bleibt  aber  auf  »Wahr«,  da  der  Com¬ 
puter  sie  auf  »Wahr«  hält).  Genau 
umgekehrt  läuft  es  bei  der  DATA- 
Leitung  ab  —  der  Computer  läßt  sie 
auf  »Falsch«  gehen,  die  Geräte  set¬ 
zen  sie  auf  »Wahr«.  Die  DATA- 
Leitung  wird  vom  Computer  über¬ 
wacht  und  wenn  die  angeschlosse¬ 
nen  Geräte  die  DATA-Leitung  nicht 
innerhalb  von  einer  Millisekunde 
auf  »Wahr«  gezogen  haben,  wird  die 
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Fehlermeldung  »DEVICE  NOT 
PRESENT«  ausgegeben.  Die  Über¬ 
tragung  der  Daten  erfolgt  dann  auf 
die  schon  bekannte  Art  und  Weise. 

Ein  kleines  Beispiel  soll  zum  bes¬ 
seren  Verständnis  dienen,  wie  die¬ 
se  Übertragung  abläuft.  Wir  wollen 
auf  dem  Gerät  8  —  dem  Floppylauf- 
werk  —  ein  Schreibfile  eröffnen.  Die 
Basic-Befehlssequenz  lautet  dann: 
OPENl,8,2,  "NAME,S,W” 

Der  Computer  wird  die  ATN- 
Leitung  auf  »Wahr«  ziehen,  dann  die 
Folge  »Gerät  8  Listen,  Sekundär¬ 
adresse  2,  Sekundärbefehl  OPEN« 
an  das  Laufwerk  senden.  Wenn  er 
dann  die  ATN-Leitung  wieder  auf 
»Falsch«  setzt,  wartet  er  als  Talker 
mit  der  CLK-Leitung  auf  »Wahr«. 
Das  Laufwerk  hält  als  Listener  die 
DATA-Leitung  auf  wahr.  Hiermit  ist 
der  Zustand  »Vorbereitung  zur 
Übertragung  eines  Bytes«  (siehe 
oben)  hergestellt.  So  muß  es  ja  auch 
sein,  da  der  Computer  noch  weitere 
Informationen  senden  will.  Er  wird 
als  nächstes  dann  byteweise  den 
Namen,  Komma,  »S«,  Komma  und 
»W«  senden.  Das  »W«  wird,  da  es 
das  letzte  Byte  ist,  mit  der  »EOI«- 
Sequenz  übermittelt.  Danach  wird 
der  Computer  mit  der  ATN-Leitung 
wieder  auf  »Wahr«  eh  "Gerät  8  Unli- 
sten«-Befehle  senden.  Damit  ist  das 
File  als  Schreibfile  eröffnet. 


Computer  als  Zuhörer 

Irgendwann  will  dann  der  Com¬ 
puter  Daten  auf  dieses  File  schrei¬ 
ben.  Er  sendet  also  wieder  mit  der 
ATN-Leitung  auf  »Wahr«  ein  »Gerät 
8  Listen«  gefolgt  von  »Sekundär¬ 
adresse  2«.  Er  setzt  die  ATN-Leitung 
auf  »Falsch«  und  beginnt  dann,  wie 
oben  beschrieben,  die  Daten  an  das 
Laufwerk  zu  senden.  Nur  das  Flop- 
pylaufwerk  wird  diese  Daten  emp¬ 
fangen  und  sie  in  das  File  mit  dem 
Namen  »NAME«  schreiben.  Das 
letzte  Byte,  das  der  Computer  sen¬ 
det,  wird  wieder  mit  »EOI«  gesen¬ 
det.  Mit  der  ATN-Leitung  wieder  auf 
»Wahr«  gesetzt,  sendet  er  einen 
»Gerät8Unlisten«-Befehl.  Diese  Ab¬ 
folge  kann  im  Laufe  einer  Pro¬ 
grammabarbeitung  öfters  durchlau¬ 
fen  werden.  Zu  irgendeinem  Zeit¬ 
punkt  soll  dieses  Schreibfile  wieder 
mit  dem  Basic-Befehl 
CLOSE  1 

geschlossen  werden.  Der  Compu¬ 
ter  wird  also,  natürlich  mit  der  ATN- 
Leitung  auf  »Wahr«,  die  Folge  »Ge¬ 
rät  8  Listen,  Sekundäradresse  2,  Se¬ 
kundärbefehl  CLOSE«  an  das  Lauf¬ 
werk  senden.  Die  1  bei  CLOSE 
dient  im  Computer  nur  als  Zeiger 


auf  die  tatsächlichen  OPEN-  und 
CLOSE-Parameter.  Über  diese  1 
findet  der  Computer  dann  die  Se¬ 
kundäradresse  2. 

Bis  jetzt  haben  wir  den  Computer 
eigentlich  immer  in  der  Funktion  als 
Controller  und  als  Talker  betrach¬ 
tet.  Wie  wir  wissen,  bleibt  er  immer 
der  Buscontroller,  aber  er  kann 
auch  als  Listener  fungieren.  Diesen 
Ablauf  haben  wir  bis  jetzt  noch  nicht 
beschrieben. 

Im  Prinzip  kennen  wir  schon  alle 
dazu  nötigen  Schritte.  Während  die 
ATN-Leitung  auf  »Wahr«  ist,  sendnet 
der  Computer  einen  Talk-Befehl  an 
das  adressierte  Gerät.  Unmittelbar 
nachdem  die  ATN-Leitung  wieder 
auf  »Falsch«  geht,  ist  das  Gerät  im¬ 
mer  noch  Listener  und  der  Compu¬ 
ter  Talker.  Die  DATA-Leitung  wird 
vom  Gerät,  die  CLK-Leitung  vom 
Computer  auf  »Wahr«  gehalten.  Das 
muß  sich  jetzt  aber  ändern. 

Der  Computer  zieht  seinen 
DATA- Ausgang  auf  »Wahr«  (die  Lei¬ 
tung  ist  es  schon  durch  das  Gerät) 
und  setzt  seinen  CLK-Ausgang  auf 
»Falsch«.  Darauf  hat  das  Peripherie¬ 
gerät  gewartet.  Es  gibt  seinen 
DATA-Ausgang  frei  (»Falsch«)  und 
zieht  die  CLK-Leitung  auf  »Wahr«.  Es 
hat  sich  also  jetzt  wieder  der  Zu¬ 
stand  "Talker  hält  die  CLK-,  Liste¬ 
ner  die  DATA-Leitung  auf  »Wahr«" 
(siehe  den  Punkt  »Vorbereitung  zur 
Übertragung  eines  Bytes«)  einge¬ 
stellt.  Dieser  Ablauf  wird  vom  Com¬ 
puter  überwacht  und  nur  wenn  alles 
korrekt  abläuft,  ist  er  bereit,  Daten 
zu  empfangen.  Die  Übertragung 
der  Daten  erfolgt  auf  die  gleiche 
Weise  wie  oben  beschrieben. 

Damit  haben  wir  alle  Übertra¬ 
gungsmöglichkeiten  auf  dem  seriel¬ 
len  Bus  erläutert.  Wer  es  verstan¬ 
den  hat,  kann  die  beiden  folgenden 
Fragen  beantworten:  Warum  gibt 
der  Computer  keine  Fehlermel¬ 
dung  beim  Basic-Befehl  OPEN4.4 
aus,  obwohl  nur  das  Gerät  8  ange¬ 
schlossen  und  in  Betrieb  ist  (das  Ge¬ 
rät  4  ist  nicht  angeschlossen)?  Wa¬ 
rum  gibt  er  aber  eine  Fehlermel¬ 
dung  bei  PRINT@4,  "xxxx”  aus  (’ 
steht  für  das  Anführungszeichen)? 

(Michael  Bauer) 
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Strukturiertes  Programmieren 


STRUKTURIERTES  PROGRAMMIEREN 


Strukturiertes  Programmieren  ist  keineswegs  so  schwierig  wie  es  sich  anhört. 
Neben  etwas  Theorie  wollen  wir  ein  kleines  aber  ausbaufähiges  Spiel  entwerfen. 


Im  letzten  Heft  gab  ich  Ihnen 
einige  Regeln,  die  das  Struk¬ 
turieren  des  Programmcodes 
betreffen,  Eigentlich  war  dieser  Be¬ 
richt  zu  früh  dran.  Denn  bevor  man 
sich  an  seinen  Computer  setzt  und 
das  Programm  eintippt,  ist  eine 
Menge  Vorarbeit  zu  leisten.  Die 
wichtigste  Arbeit  besteht  dabei  im 
Nachdenken.  Nachdenken  vor  al¬ 
lem  darüber,  was  das  Programm, 
das  man  schreiben  will,  eigentlich 
tun  soll,  wie  man  es  am  effektivsten 
aufbaut.  Und  dabei  werden  die 
meisten  und  verhängnisvollsten 
Fehler  gemacht.  Diese  Fehler  zie¬ 
hen  sich  durch  das  gesamte 
»Software-Projekt«  hindurch  und 
entscheiden  später  über  den  Er¬ 
folg  oder  Mißerfolg  des  Pro¬ 
gramms.  Und  je  später  ein  Fehler 
endeckt  wird,  desto  größer  wird 
der  Aufwand,  den  man  betreiben 
muß,  um  diesen  Fehler  zu  behe¬ 
ben.  Das  bedeutet  ganz  einfach, 
daß  man  am  Anfang  sehr  aufmerk¬ 
sam  sein  muß,  und  jeden  Schritt,  je¬ 
de  Idee  lieber  einmal  mehr  als 
einmal  zu  wenig  überdenken  sollte. 

Gerade  dann,  wenn  das  Pro¬ 
gramm  wahrscheinlich  etwas  grö¬ 
ßer  wird,  tut  man  gut  daran,  es  in 
kleinere  Einheiten  aufzuteilen.  Die¬ 
se  Einheiten  werden  auch  Module 
genannt.  Gebräuchlich  sind  auch 
die  Begriffe  »Unterprogramm«, 
»Subroutine«  oder  auch  »Prozedu¬ 
ren«  (zum  Beispiel  in  Pascal).  Ge¬ 
meint  ist  in  der  Regel  immer  das 
gleiche. 

Bei  großen  und  komplexen  Pro¬ 
grammpaketen  besteht  eine  der 
wichtigsten  Aufgaben  in  der  Modu¬ 
larisierung  eines  Programms.  Das 
heißt  aber  auch,  daß,  wenn  diese 
Aufgabe  erste  einmal  gelöst  ist,  der 
Rest  um  so  einfacher  und  schneller 
von  der  Hand  geht. 


Wie  ein  Spiel  entsteht 


Wenden  wir  uns  jetzt  einem  neu¬ 
en  Beispiel  zu,  Ich  möchte  mit  Ih¬ 
nen  ein  kleines  und  einfaches  Spiel 
entwerfen.  Die  Spielregeln  sind 
sehr  einfach,  Wir  wollen  den  Com¬ 
puter  veranlassen,  gegen  uns  zu 
spielen.  In  ein  Spielfeld  von  3x3 
Feldern  setzen  die  Spieler  (der 
Computer  und  wir)  abwechselnd 
eine  Null  oder  ein  X.  Wir  setzen  die 


X.  Wer  als  erster  drei  Zeichen  in  ei¬ 
ner  Reihe  hat,  hat  gewonnen.  Eine 
Reihe  heißt  hier  senkrecht,  waage¬ 
recht  oder  diagonal.  Das  Spielfeld 
und  eine  typische  Spielsituation 
sind  in  Bild  la  und  lb  zu  sehen. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

X 

0 

X 

X 

0 

Bild  la,  b,  c. 
Das  Spielfeld 
wird  eine 
typische 
Spielsituation 


Wir  wollen  unser  Spielfeld  jetzt  nu¬ 
merieren,  jedes  Feld  erhält  eine 
Nummer  (Bjjjyc^  .  , 

Jetzt  schreiben  wir  uns  auf,  was  in 
edem  Feld  steht: 


1  X 

2  0 

3  - 

4  x 

5- 

6  x 

7  0 

8  - 

9  - 

Ein  Strich  bedeutet  hier  ein  leeres 
'peld. 


Ersetze  x  durch  1 
0  durch  - 1 
—  durch  0 

Der  Grund  dafür,  daß  wir  gerade 
diese  Zahlen  nehmen,  ist  jetzt  noch 
nicht  so  klar,  im  Moment  ist  es  ein¬ 
fach  ein  Gefühl  für  Symmetrie.  Wir 
werden  aber  sehen,  daß  diese 
Wahl  zweckmäßig  ist. 

Damit  können  wir  den  Spielstand 
so  beschreiben: 


Feld  Inhalt 


i 

1 

2 

-1 

3 

0 

4 

1 

5 

0 

6 

1 

7 

-1 

8 

0 

9 

0 

Array  SS  (Spielstand) 

Diesen  (und  auch  jeden  anderen) 
Spielstand  legen  wir  in  einem  Ar¬ 
ray  SS  ab  (SS  steht  für  Spielstand). 


So  oft  sich  also  der  Spielstand  än¬ 
dert,  ändert  sich  auch  der  Inhalt 
des  Arrays  SS.  SS(5)  enthält  also  im¬ 
mer  den  Inhalt  des  mittleren  Fel¬ 
des,  eine  1,  wenn  wir  einen  Stein  (x) 
auf  das  Feld  gesetzt  haben,  eine 
— 1,  wenn  der  Computer  seinen 
Spielstein  darauf  gesetzt  hat,  oder 
eine  0,  wenn  das  Feld  noch  nicht 
besetzt  ist. 

Jetzt  können  wir  (und  vor  allem 
der  Computer)  herausfinden,  wel¬ 
ches  Feld  besetzt  ist,  und  auch, 
durch  wen  es  besetzt  wurde,  aber 
wir  müssen  den  Compuer  ja  noch 
dazu  bringen,  einen  vernünftigen 
Spielzug  zu  machen.  Das  bedeutet, 
er  muß  sperren,  wenn  wir  schon 
zwei  Felder  einer  Reihe  besetzt  ha¬ 
ben,  und  er  soll  auch  erkennen, 
wenn  er  schon  zwei  Felder  einer 
Reihe  besetzt  hat,  wo  er  seinen 
Siegzug  hinzusetzen  hat.  Wir  brau¬ 
chen  also  eine  Methode,  um  den 
Spielstand  zu  bewerten. 

Dazu  schaffen  wir  ein  zweites  Ar¬ 
ray,  das  wir  BW  nennen  (BW  steht 
für  Bewertung).  BW  enthält  die 
Summen  jeder  Reihe,  der  waage¬ 
rechten,  der  senkrechten  und  der 
diagonalen.  Insgesamt  haben  wir 
acht  Reihen,  so  daß  auch  BW  nicht 
größer  zu  sein  braucht.  Und  so 
wird  jedes  Element  von  BW  be¬ 
rechnet: 


1 

0 

=  SS(1 )  +  SS(2)  +  SS(3) 

oberste  Reihe 

2 

2 

=  SS(4)+SS<5)  +  SS(6) 

zweite  Reihe 

3 

—1 

=  SS<7)  +  SS<8)  +  SS(9) 

dritte  Reihe 

4 

1 

=  SS(1 )+  SS(4)  +  SS(7) 

linke  Spalte 

5 

—  1 

=  SS<2)+SS<5)  +  SS<8) 

mittlere  Spalte 

6 

1 

=  SS(3)+SS(6)  +  SS(9) 

rechte  Spalte 

7 

1 

=  SS(1 )  +  SS(5)  +  SS(9) 

vordere  Diagonale 

8 

—  * 

=  SS(3)  +  SS(5)  +  SS<7) 

hintere  Diagonale 

Diese  Werte  geben  selbstver¬ 
ständlich  nur  den  oben  im  Beispiel 
vorgegebenen  Spielstand  wieder. 
Aber  wir  können  jetzt  erkennen, 
daß  das  Array  BW  uns  Informatio¬ 
nen  über  die  aktuelle  Spielsituation 
liefert:  Immer,  wenn  ein  Element 
von  BW  den  Wert  2  hat,  erkennt 
der  Computer,  daß  für  ihn  Gefahr 
im  Verzüge  ist.  Die  2  bedeutet  näm¬ 
lich,  daß  in  einer  Reihe  schon  zwei¬ 
mal  ein  Sein  gesetzt  wurde.  Damit 
dürfte  die  nächste  Aufgabe  des 
Computers  schon  klar  sein:  Er  muß 
seinen  nächsten  Stein  in  das  dritte 
Feld  der  fast  kompletten  Reihe  set¬ 
zen!  Doch  wie  soll  er  das  freie  Feld 
finden?  Wir  machen  es  uns  einfach: 
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Er  soll  so  lange  einen  Stein  in  ein 
freies  Feld  setzen,  bis  eine  erneute 
Überprüfung  des  Arrays  BW  er¬ 
gibt,  daß  kein  Element  mehr  den 
Wert  2  hat.  Und  wirklich,  wenn  der 
Computer  zufällig  das  richtige  Feld 
erwischt  hat,  wird  ja  dieses  Feld 
mit  einer  —1  belegt.  Dadurch  wird 
in  dem  BW-Feld,  in  dem  eine  2 
steht,  —1  hinzuaddiert,  also  1  abge¬ 
zogen.  Damit  existiert  in  diesem 
Moment  keine  gefährliche  Situation 
mehr,  jedenfalls  nicht  für  den  Com¬ 
puter.  Ich  sagte  gerade,  daß  der 
Computer  ganz  zufällig  irgendein 
freies  Feld  belegt,  um  dann  nach¬ 
zuprüfen,  ob  sich  dadurch  eine  Ent¬ 
schärfung  der  für  ihn  gefährlichen 
Situation  ergibt.  Falls  er  ein  Feld 
belegt  hat,  das  nicht  zu  einer  Lö¬ 
sung  führt  (das  heißt  die  2  im  Feld 
BW  wird  nicht  verändert),  müssen 
wir  natürlich  dafür  sogen,  daß  di- 
ser  Zug  wieder  zurückgenommen 
wird.  In  diesem  Fall  braucht  also 
dieses  Feld  nur  wieder  mit  einer  0 
belegt  zu  werden.  Aber  warum 
meinte  ich  »zufällig«?  Nun,  wir  könn¬ 
ten  das  Spielfeld  systematisch 
druchsuchen  lassen,  aber  dann 
wäre  jeder  Zug  vorhersehbar  und 
bei  einem  Spiel  wäre  das  nicht  be¬ 
sonders  interessant. 


Die  Funktionen 


Wir  legen  jetzt  also  fest,  daß  der 
Computer  nur  dann  zu  sperren 
braucht,  wenn  sich  eine  für  ihn  ge¬ 
fährliche  Situation  ergibt,  wenn  also 
zwei  Felder  in  einer  Reihe  durch 
ein  X  besetzt  sind.  Alle  anderen 
Fälle  interessieren  ihn  nicht  beson¬ 
ders,  in  diesen  Fällen  setzt  er  seine 
Steine  ganz  zufällig  auf  ein  freies 
Feld.  Selbstverständlich  bemerkt 
er  auch,  wenn  er  selbst  zwei  Felder 
besetzt  hat.  Dann  versucht  er  natür¬ 
lich,  daß  dritte  Feld  auch  zu  bele¬ 
gen.  Und  last  not  least,  erkennen 
soll  der  Computer  auch,  wenn  er 
oder  wir  gewonnen  haben.  Und 
das  erkennt  er  dann,  wenn  die 
Summe  einer  Reihe  +  /— 3  ergibt. 

So,  mit  diesen  Ideen  können  wir 
schon  etwas  anfangen.  Wir  versu¬ 
chen  jetzt,  die  einzelnen  Funktio¬ 
nen  des  Programms  festzulegen.  In 
welche  Teilaufgaben  können  wir 
das  Problem  zerlegen?  Als  erstes 
brauchen  wir  eine  Initialisierung 
der  Variablen.  Das  Spielfeld  soll 
auch  angezeigt  werden,  das  ist  ein 
weiterer  Teil.  Dann  gibt  es  einmal 
den  Computerzug  und  auch  unse¬ 
ren  Spielzug.  Und  auch  die  Über¬ 
prüfung  auf  Spielende  darf  nicht 
fehlen. 
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Daraus  ergibt  sich: 


Bild  2.  Das  Ablaufdiagramm 

In  der  Reihenfolge  wie  sie  Bild  2 
zeigt,  werden  die  einzelnen  Modu- 
le  aufgerufen.  Deshalb  nennt  man 
dies  auch  ein  Ablaufdiagramm. 
Manche  dieser  Module  müssen 
noch  weiter  unterteilt  werden.  Zum 
Beispiel  der  Modul  SPIELENDE 
(4000):  Um  ein  Spielende  zu 
erreichen,  gibt  es  mindestens  zwei 
Möglichkeiten:  Entweder  ist  eine 
Reihe  mit  drei  gleichen  Steinen  be¬ 
setzt  oder  aber  das  Spielfeld  ist 


voll.  Dann  gibt  es  ein  Unent¬ 
schieden. 

Um  das  herauszufinden,  erstellen 
wir  eine  Routine  zum  BEWERTEN 
(6000)  des  Spielfeldes.  In  diesem 
Modul  wird  das  Array  BW  erzeugt 
(siehe  oben). 

Wie  steht  es  nun  mit  dem  Modul 
COMPUTERZUG  (5000)? 

Ganz  klar,  auch  der  Computer 
muß  wissen,  wie  das  Spielfeld  jetzt 
aussieht.  Deswegen  rufen  wir  auch 
hier  den  Modul  BEWERTEN  auf. 
Aus  dieser  Bewertung  heraus  kön¬ 
nen  sich  drei  Möglichkeiten 
ergeben: 

1.  Der  Computer  hat  schon  eine 
Reihe  mit  zwei  Steinen  besetzt  und 
das  dritte  Feld  ist  noch  frei  (das 
heißt  ein  Element  von  BW  hat  den 
Wert  —2).  Dann  führt  er  einen 
SIEGZUG  (7000)  aus.  Da  wir  schon 
vorhin  davon  sprachen,  daß  der 
Computer  seinen  Stein  zufällig 
setzt,  müssen  wir  hier  den  Modul 
ZURÜCKNEHMEN  (10000)  berück¬ 
sichtigen 

2.  Die  Gegner  —  also  wir  —  haben 
schon  zwei  Steine  in  einer  Reihe. 
Wenn  das  dritte  Feld  dieser  Reihe 
noch  frei  ist,  ärgert  uns  der  Compu¬ 
ter,  mdem  er  dieses  Feld  versucht 
zu  SPERREN  (8000). 

3.  Im  dritten  Fall  ergibt  sich  weder 
das  eine  noch  das  andere,  und  der 
Computer  macht  einen  ZUFALLS¬ 
ZUG  (9000). 

Selbst  wenn  wir  die  Frechheit  be¬ 
sitzen,  den  Computer  auszutrick¬ 
sen,  in  dem  wir  zwei  Reihen  mit  je 
zwei  Steinen  und  einem  freien  Feld 
erspielen  können,  merkt  er  das 
und  verabschiedet  sich  nach¬ 
tragend. 

Damit  wäre  auch  diese  Ebene 
definiert. 

Unser  Programm  sieht  jetzt  so  aus: 

0  HAUPTPROGRAMM  10 

.  1 .  INITIALISIERUNG  1 000 

.2.  ANZEIGEN  2000 

.3,  ZUG  HOLEN  3000 

.4.  SPIELENDE  4000 

1.5.  COMPUTERZUG  5000 

2.1.  BEWERTEN  6000 

2.2.  SIEGZUG  7000 

2.3.  SPERREN  8000 

2.4.  ZUFALLSZUG  9000 

3.1.  ZURÜCKNEHMEN  10000 


Jetzt  haben  wir  alle  notwendigen 
Module  benannt.  Daraus  erstellen 
wir  ein  Ubersichtsprogramm.  In 
diesem  Übersichtsprogramm  wer¬ 
den  alle  Module  grafisch  darge¬ 
stellt  und  zwar  in  ihren  Abhängig¬ 
keiten  voneinander  (siehe  Bild  3). 
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2.4 

9000 

Zufallszug 

2.1  6000 
Spielfeld  bewerten 


1.3 

3000 

1.4 

4000 

Zug  holen 

Spielende  prüfen 

'  ; 


2.1 

6000 

Bewerten 

_ 

1  W 


3.1  10000 

Zurücknehmen 


Bild  3.  Das  Übersichtsdiagramm 


Die  Beziehung  zwischen  den  ein¬ 
zelnen  Unterprogrammen  ist:  »ruft 
auf«.  Das  Hauptprogramm  also  ruft 
auf:  INITIALISIERUNG,  ANZEI¬ 
GEN,  ZUG  HOLEN,  SPIELENDE 
PRÜFEN  und  COMPUTERZUG. 
Manche  der  anderen  Module  wer¬ 
den  nur  nach  einer  bedingten  Ver¬ 
zweigung  (IF  ...  THEN  GOSUB  ...) 
durchlaufen.  Das  spielt  bei  dieser 
Übersicht  jedoch  keine  Rolle, 

So,  jetzt  sind  wir  so  weit,  daß  wir 
uns  die  einzelnen  Teile  etwas  ge¬ 
nauer  anschauen  können.  Fangen 
wir  wieder  mit  dem  Hauptpro¬ 
gramm  an.  Oben  im  Ablaufdia¬ 


gramm  ist  es  eigentlich  schon 
vollständig  beschrieben  Hier 
könnten  wir  schon  sofort  das  Co- 
ding  hinschreiben  (Listing  1). 

Wenn  Sie  dieses  Listing  mit  dem 
Ablaufdiagramm  (Bild  2)  verglei¬ 
chen,  sehen  Sie  die  direkte  Umset¬ 
zung  unserer  Überlegungen. 
Lediglich  der  Programmkopf,  das 
Löschen  des  Bildschirms  (Zeile  90) 
und  die  Dimensionierung  unserer 
Arrays  (Zeile  100)  kommt  noch  hin¬ 
zu.  Diese  Zeile  ist  in  unserem  Bei¬ 
spiel  zwar  nicht  notwendig  (der  C 
64  läßt  Arrays  bis  11  Elemente  zu 
ohne  sie  dimensionieren  zu  müs¬ 


10  REM  ******************************* 
20  REM  *  KREUZ  UND  QUER  * 

30  REM  *  %  %  ********** *  *  *  *  *  * *  *  *  *  *  *  *  *  *  *  *  * 
30  PR  INT "U" 


100  Dl  MSS  <9  >  :  D  I  MB  Ui 
1  10  GOSUB 1000 i REM 
1 20  GOSUB 2 000  *■  REM 
1 30  GOSUB3000 : REM 
140  GOSUB2000 : REM 
150  GOSUB4000 : REM 
1 60  6OSUB5000 : REM 
170  GOSUB2000 : REM 
180  GOSUB400BSREM 


SPIELFELD  INITIALISIEREN 

ANZEIGEN 

ZUG  HOLEN 

ANZ  E I GEN 

AUF  SPIELENDE  PRUEFEN 

COMPUTERZUG 

ANZ E I GEN 

AUF  SPIELENDE  PRUEFEN 


190  GOTO  136 


READY . 


Listing  1.  Das  Hauptprogramm  unseres  Beispiels 


sen),  aber  da  wir  ja  weiterdenken, 
bereiten  wir  unser  Programm 
schon  für  spätere  Erweiterungen 
vor  (es  könnte  ja  sein,  daß  unser 
Spielfeld  vergrößert  werden  soll). 
Außerdem  erkennen  wir  schon  im 
Hauptspeicher,  welche  Variablen 
für  das  ganze  Programm  benötigt 
werden.  Man  spricht  hier  auch  von 
»globalen  Variablen«,  im  Gegen¬ 
satz  zu  »lokalen  Variablen«,  die  nur 
innerhalb  eines  Moduls  wichtig 
sind. 

Jetzt,  nachdem  unser  Hauptpro¬ 
gramm  »steht«,  knöpfen  wir  uns  das 
nächste  Modul  vor. 
INITIALISIERUNG 
In  diesem  Modul  wollen  wir  die 
Felder  unseres  Spielfeldes  lö¬ 
schen.  Das  bedeutet,  wir  löschen 
Array  SS  (Listing  2). 


1000  REM - - - 

1010  REM  INITIALISIERUNG 
1020  : 

1100  FORP= 1TQ3 
1116  s  SS (P ) =0 
1  123  NE*  TP 
1133  RETURN 


READY. 

Listing  2.  Initialisierung  des  Feldes  ss 

Ich  will  für  einige  der  folgenden 
Module  das  Struktprogramm  erstel¬ 
len.  Die  Umsetzung  in  ein  ablauffä¬ 
higes  Programm  überlasse  ich 
Ihnen.  Eine  Ausnahme  werde  ich 


pline.de 

iline.net 
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Anzeigen  (2000) 


Bild  4.  Nassi-Schneidermann-Diagramm:  Spiel¬ 
feldanzeigen 


Bild  5.  Modul  Spielzeug 

machen  mit  den  Modulen  COMPU¬ 
TERZUG,  SPIELFELD  BEWERTEN 
und  ZURÜCKNEHMEN. 

Modul  SPIELFELD  ANZEIGEN 
(2000/)  (Büd  4) 

Modul  SPIELERZUG  (3000/)  (Bild  5) 
Modul  SPIELENDE  PRÜFEN 
(4000/)  (Bild  6) 

Modul  COMPUTERZUG  (5000/) 
(Bild  7) 

Ünd  dann  der  versprochene  Code 
dazu:  (Listing  3) 

Modul  SPIELFELD  BEWERTEN 
(6000) 


Bild  6.  Auf  Spielende  prüfen 


Hier  wird  das  Array  BW  defi¬ 
niert.  Man  könnte  dieses  Modul  na¬ 
türlich  mit  einer  Schleife  lösen, 
aber  eigentlich  lohnt  sich  der  Auf¬ 
wand  nicht  (Listing  4). 

Der  Modul  SIEGZUG  (7000)  ist  auch 
schnell  gelöst  (Bild  8). 

Modul  SPERREN  (8000/)  (Bild  9) 
Modul  ZUFALLSZUG  (9000/) 

(Büd  10) 

Modul  ZURÜCKNEHMEN  (100000) 
Und  dies  ist  die  einfachste  Routine, 
ein  Zweizeiler: 

10000  REM - 

10010  REM  ZURÜCKNEHMEN 
10030  : 

10040  SS(CM)  =  0 
10050  RETURN 

So,  daß  war  das  ganze  Pro¬ 
gramm!  Eigentlich  sollte  es  Ihnen 
gelingen,  anhand  der  Struktogram- 
me  das  Programm  zu  schreiben. 
Aber  Sie  sehen  schon  jetzt,  daß  ei¬ 
ne  Änderung  des  Programms  ganz 
einfach  ist.  Man  kann  sich  jeden 
Modul  einzeln  vornehmen  und  ihn 


Bild  7.  Computerzug 

SIEGZUG  (7000) 


Bild  8.  Modul  Spielzug 

je  nach  Wunsch  ändern  oder  er¬ 
weitern.  Dazu  bietet  sich  zum  Bei¬ 
spiel  der  Modul  SPIELFELD 
ANZEIGEN  (2000)  an  (Bild  4).  Man 
kann  die  Bildschirmdarstellung 
sehr  gut  verbessern,  ohne  die  Pro¬ 
grammstruktur  zu  ändern.  Man 
könnte  auch  die  Strategie  des  Com- 
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5008  REM - 

5010  REM  COMPUTERS US 
50  £8  s 

5030  GOSUB6800 
5046  MT =8 
5650  F ORR  = I TOS 

5088  s  I FBUI <  P  )  =  -STHEN6OSUB7080  :  RETURN 
5970  s  IFSUKP ) - 2 THE NMT  =  M  f  + i 
5683  NEXTP 

5038  I FMT=STHE NPR I NT " RUCH  GUT .  RNGEBER ! " : END 
5 ! 8 8  I F  M T  = i THE NG ÖSUB8600 1 RE TUR N 
5113  ÖÜ3U83308 
5  1  £8  RETURN 

,  .  Listing  3.  Computerzug 


puters  im  Modul  COMPUTERZUG 
(5000)  verbessern  (Bild  7),  zum  Bei¬ 
spiel  soll  er  zuerst  das  Feld  5  beset- 


Q  SPERREN  (8000) 


Bild  9.  Modul  Sperren 

ZUFALLS  ZUG  (9000) 


zen  (wenn  es  noch  frei  ist).  Das 
bringt  Spielvorteile  (vorausgesetzt, 
es  besteht  keine  Bedrohung  oder 
eine  Gewinnposition  ...).  Auch 
könnte  man  abwechselnd  den 
Computer  oder  den  Mitspieler  an¬ 
fangen  lassen  zu  spielen.  Ändern 
Sie  das  Programm  so  ab,  daß  auch 
mehrere  Spiele  durchgeführt  wer¬ 
den  können  und  das  darüber  Buch 
geführt  wird.  Sie  werden  fest  stel¬ 
len,  daß  Änderungen  durch  die 
Modularisierung  relativ  einfach  ge¬ 
macht  werden  können  Erkennen 
Sie  den  Vorteil  dieser  Piogramm- 
strukturierung? 

Was  wir  hier  gemacht  haben,  ist 
ein  Top-down-Entwurf.  Wir  haben 
bei  dem  Modul  an  der  Spitze  der 
Hierarchie  angefangen  (beim  Steu¬ 
ermodul  oder  Hauptprogramm) 
und  entwickelten  dann  die  weite¬ 
ren  Module.  Es  gibt  noch  eine  an¬ 
dere  Methode.  Sie  nennt  man 
Bottom-up-Methode.  Bei  dieser 
Methode  ist  es  genau  umgekehrt: 
Hier  fängt  man  an  der  untersten 
Hierarchiestufe  an  und  endet  an 
der  obersten. 

Im  nächsten  Heft  stelle  ich  Ihnen 
die  Elemente  der  Flußdiagramme 
und  auch  die  Struktogramme  aus¬ 
führlich  vor.  Und  wenn  Sie  Lust  ha¬ 
ben,  schicken  Sie  uns  doch  Ihre 
Lösungsvorschläge  des  Pro¬ 
gramms.  Ich  könnte  mir  vorstellen, 
daß  wir  einige  interessante  Lösun¬ 
gen  erhalten  werden. 

(Dieses  Beispiel  ist  zum  Teil  ent¬ 
nommen  aus  dem  Buch  Commodo- 
re  64,  Programmieren  leicht 
gemacht,  aus  dem  Birkhäuser  Ver¬ 
lag  (siehe  auch  unsere  Buchbe¬ 
sprechung)). 

TOP-DOWN-Vorgehensweise 

Top-Down  ist  eine  bestimmte 
Vorgehensweise  bei  der  Entwick¬ 
lung  und  beim  Test  von  Program¬ 
men,  Sie  basiert  auf  hierarchischen 


SÖS3  REM - 

G0. 10  REM  SPIELFELD  BEWERTEN 
8020  : 

8030  : 

6840  BUK  1 >=SS< 1 >  +SS  <2 ) +SS  <3 ) 
605G  BUK 2')  =SS  <4  >  +SS  (5  )  +SS  <6  ) 
60S0  BWC3)=SS<7)+SS<3)+SS<9> 
607©  8WC4  }  =SS  C  1  )+SS':4)+SS';7> 
S083  BLI C5  >  =SS  <  2  >  +SS  <  5  >  +SS < 8  > 
6838  BW  C  6  >  =SS  <  37  +-SS  <  6  >  *§ S  C S  > 
S 1 88  3W 1 7 ) =SS  C 1 )+SS(5)+SS(9) 
6  118  BW  ■:  3  )  =SS  <  3  )  +SS  <  5  )  +SS  <  7  ? 
6128  RETURN 
6  138  : 

REttDY. 

Listing  4.  Spielfeld  bewerten 


Strukturen  und  dient  als  sinnvolle 
Ergänzung  zur  strukturierten  Pro¬ 
grammierung.  Zuerst  werden  die 
im  Sinne  der  Hierarchie  obersten 
Programmteile  entworfen,  codiert 
und  getestet,  ehe  zu  Programmtei¬ 
len  der  nächst  niedrigeren  Hierar¬ 
chiestufe  übergegangen  wird. 
Dadurch  sind  Programmier  Objekte 
besser  überschaubar,  allgemeine 
Anforderungen  können  zuerst,  De¬ 
tails  später  hinzugefügt  werden. 
Weil  man  sich  bei  diesem  Vorge¬ 
hen  am  Anfang  mehr  Mühe  ma¬ 
chen  muß,  wird  durch  die 
Betrachtung  des  Gesamtsystems 
das  frühzeitige  Erkennen  von  Ent¬ 
wurfsfehlern  erleichtert.  Der  Ein¬ 
bau  von  Entwurfsänderungen  ist  in 
den  meisten  Fällen  problemlos. 

BOTTOM-UP 

Im  Gegensatz  zum  TOP-DOWN- 
Entwurf  fängt  man  in  einer  hierar¬ 
chischen  Programmstruktur  auf 
der  untersten  Stufe  an,  entwickelt 
die  einzelnen  Komponenten,  testet 
sie  einzeln.  Ist  der  Test  erfolgreich 
verlaufen,  geht  man  zur  nächsten, 
höheren  Hierarchiestufe  weiter 
und  setzt  die  Arbeit  ähnlich  fort.  So 
wird  ein  Programm  stufenweise 
von  unten  nach  oben  entwickelt 
und  getestet.  Diese  Vorgehenswei- 
se  hat  zweifellos  Vorteile,  man  darf 
jedoch  ihre  Nachteile  nicht 
übersehen: 

Je  höher  die  Integrationsstufe,  al¬ 
so  je  höher  man  in  der  Hierarchie 
gestiegen  ist,  um  so  schwieriger  ist 
die  Ursache  von  Fehlern  zu  ent¬ 
decken. 

Änderungen  »in  der  letzten  Minu¬ 
te«  verursachen  wiederum  neue 
Fehler  und  verschlechtern  die 
Qualität  gut  konzipierter  Pro¬ 
gramme. 

Zusammenhängende  Ergebnisse 
werden  während  der  ganzen  Ent¬ 
wicklungsphase  nicht  sichtbar. 


4eUhJme.de 
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Mit  jedem  Diskettenlaufwerk 
1541  wird  eine  Demo-Diskette 
mitgeliefert.  Auf  dieser  Disket¬ 
te  sind  einige  Programme,  von  de¬ 
nen  der  von  jeglichem  Computer¬ 
wissen  unberührte  Neuling  nicht  ge¬ 
nau  weiß,  wie  er  sie  einzusetzen  hat. 
Unter  anderem  ist  das  das  Pro¬ 
gramm  DOS  5.1.  Dieses  Programm 
erlaubt  die  bequeme  Nutzung  vie¬ 
ler  Diskettenbefehle. 


Was  macht  das 
DOS  5.1? 


Es  liefert  drei  verschiedene  Arten 
von  Befehlen: 

—  Der  Fehler-Status  kann  mit  einem 
einfachen  Befehl  gelesen  werden; 

—  das  Inhaltsverzeichnis  (Directory) 
einer  beliebigen  Diskette  kann  ge¬ 
laden  werden,  ohne  ein  im  Compu¬ 
ter  befindliches  Programm  zu  zer- 
strören; 

—  eine  Anzahl  von  Diskettenbefeh¬ 
len  kann  einfach  durchgeführt  wer¬ 
den. 

Wie  man  das  DOS  5.1  in 
den  Computer  lädt 

Vielleicht  haben  Sie  es  schon  ein¬ 
mal  mit  LOAD"DOS  5.1", 8  probiert 
und  haben  dann  lediglich  ein  Syn- 
tax-Error  erhalten.  Das  liegt  daran, 
daß  das  DOS  ein  Maschinenpro¬ 
gramm  ist.  Es  gibt  auf  der  Diskette 
aber  ein  anderes  Programm,  das 
sich  »C-64  Wedge«  nennt.  Und  die¬ 
ses  Programm  ist  das  Ladepro¬ 
gramm  für  das  DOS  5. 1 .  Also  laden 
Sie  es  mit  LOAD"C-64  WEDGE", 8 
und  drücken  dann  RUN.  Dadurch 
wird  das  DOS  automatisch  in  den 
Speicher  des  Computers  geladen. 
Nach  kurzer  Zeit  meldet  sich  der 
Computer  mit  einer  kurzen  Mel¬ 
dung  (siehe  Bild).  Jetzt  können  Sie 
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Ich  bin  sicher,  daß  ein 
großer  Teil  aller 
C-64-Besitzer,  die  sich  ei¬ 
ne  Hoppy  zugelegt  haben, 
gar  nicht  wissen,  was  sie 
für  ein  nützliches  und 
interessantes  Programm 
in  ihrem  Besitz  haben. 

Oder  sie  wissen  oamit 
nicht  viel  anzufangen. 
Gemeint  ist  das  DOS  5.1 
auf  Ihrer  Demo-Diskette. 

das  Programm  nutzen.  Es  macht 
nichts,  wenn  Sie  jetzt  »NEW«  eintip¬ 
pen:  Das  DOS  5.1  liegt  in  einem 
Speicherbereich,  der  nicht  mit 
»NEW«  gelöscht  werden  kann,  Sie 
können  auch  ruhig  irgendein  ande¬ 
res  Basic-Programm  laden.  Es  ist  oh¬ 
ne  weiteres  möglich,  und  die  bei¬ 
den  Programme  beeinflussen  ein¬ 
ander  nicht. 

Die  Befehle  des  DOS  5.1 

DOS-Befehle  müssen  als  direkte 
Befehle  eingegeben  werden,  das 
heißt,  man  kann  sie  nicht  innerhalb 
von  Programmen  einsetzen.  Die 
meisten  DOS-Befehle  beginnen  mit 
einem  »>«  oder  »@«.  Man  kann  sie 
wahlweise  benutzen,  sie  bewirken 
das  gleiche.  Da  jedoch  das  »@«  mit 
einer  Taste  gedrückt  werden  kann, 
werde  ich  im  folgenden  nur  dieses 
Zeichen  verwenden.  Doch  dazu 
später.  Es  gibt  noch  andere  Zei¬ 
chen,  mit  denen  DOS-Befehle  be¬ 
ginnen,  das  sind  die  Zeichen  (-),  (t) 
und  (/).  Diese  Zeichen  haben  fol¬ 
gende  Bedeutung: 


(—):  Speichern  (Save)  eines  Pro¬ 
gramms. 

Beispiel:  —TEST  speichert  ein  Pro¬ 
gramm  namens  TEST  auf  die  Disket¬ 
te.  Sonst  würde  man  schreiben  SA¬ 
VE-TEST",  8 

t  lädt  ein  Programm  (LOAD)  von 
Diskette  und  startet  es  automatisch. 
Beispiel:  tTEST  lädt  das  Programm 
TEST  von  der  Diskette  und  startet  es 
automatisch  und  ersetzt  die  Befehle 
LOAD"TEST”, 8:RUN. 

/  lädt  ein  Programm,  ohne  es  zu  star¬ 
ten.  Beispiel:  /Test  entspricht  dem 
LOAD-TEST’,8 

In  vielen  Fällen  ist  es  nicht  nötig, 
beim  Laden  und  Speichern  eines 
Programms  den  Programmnamen 
voll  auszuschreiben.  Man  kann  Tei¬ 
le  des  Namens  eingeben  und »?« be¬ 
ziehungsweise  »*«  für  den  Rest  ein¬ 
tippen. 

Beispiel:  Der  Befehle  /TE*  lädt 
das  erste  Programm  von  der  Disket¬ 
te,  dessen  erste  beiden  Buchstaben 
Te  sind,  das  kann  das  Programm  TE 
sein,  aber  auch  TEST  oder  TERMIN 
oder  TEUER,  falls  diese  Programme 
auf  der  Diskette  vorhanden  sind. 
Der  Befehl  /*  lädt  das  erste  Pro¬ 
gramm  auf  der  Diskette. 

Das  »?«  ersetzt  irgendein  Zeichen 
im  Programmnamen:  /T??T  lädt  je¬ 
des  Programm,  dessen  erster  und 
vierter  Buchstabe  ein  T  ist.  Das 
könnte  ein  Programm  namens 
TEST,  TANT,  TORT,  und  so  weiter 
sein. 

Benutzen  Sie »?« und  »*«  aber  nicht 
für  den  SAVE-Befehle  (SAVE  bezie¬ 
hungsweise  — ).  Beim  Abspeichern 
muß  der  Programmname  natürlich 
voll  ausgeschrieben  werden! 


Disk-Status 


Dies  ist  der  kürzeste  Befehl  von 
DOS  5. 1 .  Sie  brauchen  lediglich  das 
@-Symbol  einzutippen,  gefolgt  von 
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der  Return-Taste,  und  Sie  erhalten 
den  Floppy-Status  angezeigt.  Wenn 
die  Floppy  keinen  Fehler  meldet, 
erhalten  Sie  die  Meldung 
1 00, OK, 00, 00'.  Falls  Sie  ein  Pro¬ 


Directory 


Sie  können  das  Directory  einer 
Diskette  lesen,  ohne  das  im  Compu¬ 
ter  befindliche  Programm  zu  zerstö¬ 
ren.  Tippen  Sie  einfach  ein:  @$  und 
natürlich  die  RETURN-Taste.  Sie 
können  auch  eine  bestimmte  Aus¬ 
wahl  der  anzuzeigenden  Program¬ 
metreffen,  indem  Sie  die  Abkürzun¬ 
gen  »?«  oder  »*«  benutzen.  Beispiel: 
Tippen  Sie  ein:  @$:D*  und  Sie  erhal¬ 
ten  jedes  Programm,  das  mit  einem 
D  anfängt.  Die  Eingabe  von  @$:??? 
listet  jedes  Programm,  dessen  Na¬ 
me  aus  genau  drei  Zeichen  besteht. 


Scratch 

Wenn  man  Programme  löschen 
will,  tippt  man  ein: 

@  S: Programmname 
Der  Befehl  @  S:D*  löscht  alle  Pro- 
grammme  von  der  Diskette,  die  mit 
D  beginnen.  Mit  @  S :*  wird  die  ge¬ 
samte  Diskette  gelöscht,  ähnlich 
dem  New-Befehl,  ist  jedoch  langsa¬ 
mer  in  der  Ausführung. 

RENAME 

Um  den  Namen  eines  Programms 
auf  der  Diskette  zu  ändern,  tippen 
Sie  ein:  @R:neuer  Name = alter 
Name 

Beispiel:  Aus  dem  Programm  TEST 
wird  das  Programm  LAMPE,  wenn 
Sie  eingeben:  @  R:LAMPE  =  TEST 


COPY 


gramm  oder  mehrere  Programme 
mit  dem  SCRATCH-Befehl  gelöscht 
haben,  erhalten  Sie  eine  Information 
über  die  Anzahl  der  von  der  Disket¬ 
te  gelöschten  Programme.  Wenn 
die  Diskettenstation  durch  Blinken 
der  Lampe  einen  Fehler  anzeigt, 
gibt  Ihnen  dieser  Befehl  die  Art  des 
Fehlers  an.  Falls  Sie  zum  Beispiel 
ein  Programm  von  der  Diskette  la¬ 
den  wollen,  das  nicht  auf  ihr  exi¬ 
stiert,  erhalten  Sie  nach  Eingabe 
dieses  Befehls  die  Meldung: 
62, FILE  NOT  FOUND.00,00.  Manch¬ 
mal  reicht  eine  solche  Meldung 
nicht  aus.  Dann  sollten  Sie  im 
Floppy-Handbuch  nachlesen.  Um 
diese  Informationen  ohne  DOS  5.1 
zu  erhalten,  müssen  Sie  ein  kleines 
Programm  schreiben! 

Der  Befehl  @  ersetzt  folgendes 
Programm: 

OPEN  15,8,15 
INPUT#  15,  Al,  A2$,  A3,  A4 
PRINT  Al, A2$, A3, A4 
CLOSE  15 


eine  Datei  auf  der  Diskette.  @ 
C:HUND  =  KATZE  erstellt  eine  Ko¬ 
pie  der  Datei  KATZE;  die  Kopie 
heißt  HUND. 

Eine  weniger  bekannte  Möglich¬ 
keit  des  Copy-Befehls  ist,  daß  zwei 
verschiedene  Dateien  miteinander 
verbunden  werden  können  zu  einer 
einzigen  Datei.  Das  kann  so  ge¬ 
macht  werden: 

@  C:STREIT  =  HUND, KATZE 

Die  Dateien  HUND  und  KATZE 
werden  zu  der  neuen  Datei  STREIT 
zusammengefügt.  Diese  Möglich¬ 
keit  ist  sicher  sinnvoll  für  Dateien.  Ist 
sie  auch  anwendbar  auf  Program¬ 
me?  Testen  Sie  es  selbst. 

Das  DOS  5.1  belegt  keinen  Basic- 
Speicherplatz,  Innerhalb  des  C-64 
Wedge  wird  es  geladen  mit  LO- 
AD”DOS  5.1” ,8,1  und  gestartet  mit 
SYS  12*4096+  12*256  (Schauen  Sie 
sich  das  Wedge  an).  So  können  Sie 
es  auch  laden  und  starten.  Das  ist 
vor  allem  dann  von  Vorteil,  wenn  Sie 
ein  eventuell  im  Speicher  befindli¬ 
ches  Programm  nicht  löschen  wol¬ 
len. 

Sie  sehen,  daß  mit  diesem  Pro¬ 
gramm  DOS  5.1  auf  der  Demodis¬ 
kette  eine  Menge  anzufangen  ist.  Es 
erleichtert  den  Umgang  mit  der 
Floppy  doch  ganz  erheblich,  Vor  al¬ 
lem  den  Directory-Befehl  und  den 
Status-Befehl  wende  ich  selbst  sehr 
häufig  an.  (gk) 


*-*-*-*  COMMODORE  64  BASIC  U2 
1 4 K  RAM  SYS  TEM  38911  BASIC  BYTES 
RE  ADV . 

LG AD“C~64  HEDGE“, 8 

t  AfcCFfKÖ  F  4lP  C-64  WEDGE 
:  k  fi  1  h  G 
RE  ADY  . 

RUH 

DOS  MANAGER  U5. 1/071382  \ 

BY  BOß  FAIRBAIRN 
t  i 9 8 2  COMMODORE  BUSINESS  MACHINES 
READY. 


Um  zum  Beispiel  eine  Diskette 
neu  zu  formatieren,  müssen  Sie  oh¬ 
ne  die  Benutzung  des  DOS  5.1  fol¬ 
gendes  eingeben: 

OPEN  15,8,15,"N:1541TEST/DE- 
MO,ZX" 

CLOSE  15 

Mit  dem  DOS  5.1  tippen  Sie  ein: 
@N:  1541TEST/DEMO.ZX 

Der  Befehl  @N:1541TEST/DEMO 
ohne  Angabe  der  ID-Nummer  (in 
unserem  Fall  ZX)  formatiert  eine 
Diskette  nicht  neu.  Er  gibt  der  Dis¬ 
kette  lediglich  einen  neuen  Namen 
und  löscht  dabei  das  gesamte  Di¬ 
rectory.  Diese  Befehlsvariante  läuft 
wesentlich  schneller  ab  als  der 
komplette  NEW-Befehl.  Allerdings 
muß  die  Diskette  vorher  schon  for¬ 
matiert  gewesen  sein. 

Initialize 

Der  Befehl  lautet:  @  I 
Er  wird  normalerweise  nicht  benö¬ 
tigt,  kann  jedoch  manchmal  helfen, 
wenn  Sie  ein  DRIVE  NOT  READY 
erhalten. 


So  meldet  sich  das  Dos  5.1 


In  der  Regel  wird  der  Copy- 
Befehl  bei  Doppellaufwerken  be¬ 
nutzt.  Er  ist  jedoch  auch  für  Einzel¬ 
laufwerke  anwendbar.  Dieser  Be¬ 
fehl  verdoppelt  ein  Programm  oder 
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Simons  Basic 

Nachdem  in  der  letzten  Ausgabe  die  Strukturbefehle  und 
Programmierhilfen  behandelt  wurden,  wollen  wir  nun  die 
Grafik-,  Musik-,  Bildschirm-  und  sonstigen  Befehle  mit 

Beispielen  erläutern. 


Die  Grafik-Befehle  sollen  nicht 
in  ihrer  alphabetischen  Ord¬ 
nung  besprochen  werden,  son¬ 
dern  in  ihrer  natürlichen  Anord¬ 
nung,  wie  sie  eventuell  auch  einge¬ 
setzt  werden  könnten.  Die  Grafik- 
Befehle  sind  meines  Erachtens  für 
die  Programmierung  der  hochauflö¬ 
senden  Grafik  eine  unabdingbare 
Voraussetzung.  Dies  heißt  nicht, 
daß  diese  unbedingt  dem  Simons 
Basic  entnommen  werden  müssen, 
jedoch  sollten  diese  oder  ähnliche 
Befehle  unbedingt  zur  Programmie¬ 
rung  herangezogen  werden. 

Ihr  Vorteil  liegt  nicht  nur  in  der 
einfacheren  Programmierung,  son¬ 
dern  —  und  dieser  Vorteil  ist  nicht 
unerheblich  —  auch  in  der  schnelle¬ 
ren  Bearbeitung.  Bei  komplizierten 
Grafiken,  in  denen  viele  Punkte  ge¬ 
setzt  werden  müssen,  wartet  man 
nicht  selten  mehr  als  eine  Stunde, 
bis  diese  mit  Basic  erstellte  Grafik 
fertig  ist.  Durch  die  Grafik-Befehle 
ergibt  sich  hier  eine  zigfach  höhere 
Geschwindigkeit. 

HIRES 

Mit  diesem  Befehl  wird  im  Simons 
Basic  die  Grafik  eingeschaltet. 
Gleichzeitig  werden  für  einfarbige 
Grafiken  die  Hintergrund-  und 
Punktfarbe  fest  gelegt.  Vergleichen 
Sie  hierzu  Bild  1 .  Es  zeigt  ein  Basic- 
Programm,  das  das  gleiche  be¬ 
wirkt,  und  ein  entsprechendes  As¬ 
semblerprogramm,  das  dem  Buch 
»Das  Commodore  64-Buch,  Band  1« 
entnommen  ist.  Das  Basic-Pro- 
gramm  läuft  zirka  zwei  Minuten,  wo¬ 
hingegen  das  Assemblerprogramm 
und  auch  der  Befehl  HIRES  keine 
merkbare  Ausführungszeit  bean¬ 
spruchen.  Auf  die  verschiedenen 
Speicher  des  Commodore  64  für  die 
Farbgrafikdarstellung  soll  hier  nicht 
näher  eingegangen  werden,  jedoch 
wollen  wir  anmerken,  daß  beim  Ein¬ 
schalten  der  Grafik  zunächst  der 
Farbspeicher  (RAM-Bereich  1023- 
2022)  und  der  Grafikspeicher  für 
die  Darstellung  der  einzelnen  Punk- 
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te  (RAM-Bereich  8192-1 6383)  mit  der 
Farbe  beziehungsweise  mit  Nullen 
vorbesetzt  werden.  Näheres  zum 
Thema  Grafik  finden  Sie  in  der  oben 
angeführten  Buchreihe. 

MULTI 

Da  der  Befehl  HIRES  nur  einfarbi¬ 
ge  Grafiken  zuläßt,  kann  man  mit 
dem  Befehl  MULTI  weitere  drei 
Farben  gleichzeitig  auf  dem  Bild¬ 
schirm  darstellen. 

LOW  COL 

Mit  diesem  Befehl  sind  noch  wei¬ 
tere  drei  Farben  für  den  Multi- 
Color-Modus  paschaltbar.  Wäh¬ 
rend  des  Programmt,  "können  zwar 
immer  nur  drei  Farben  angespro¬ 
chen  werden,  jedoch  erscheinen 
bis  zu  sechs  Farben  auf  dem  Bild¬ 
schirm. 

Hl  COL 

Mit  dem  Befehl  HI  COL  können 
die  ursprünglich  mit  dem  Befehl 
MULTI  dargestellten  Farben  im 
Programm  wieder  eingeschaltet 
werden.  Für  sechs  Farben  sind  also 
die  Befehle  LOW  COL  und  HI  COL 
entsprechend  im  Programm  zu  set¬ 
zen. 


PLOT 

Der  Befehl  PLOT  dient  zur  Ausga¬ 
be  eines  einzigen  Punktes  auf  dem 
Bildschirm.  Daß  dies  kein  einfaches 
Unterfangen  ist,  wird  an  dem  Basic- 
Programm  in  Bild  2  deutlich.  Hierzu 
trägt  der  Aufbau  des  Grafikspei¬ 
chers  erheblich  bei.  Ebenfalls  in 
Bild  2  dar  gestellt  ist  die  Version  bei 
Verwendung  des  Befehls  aus  Si¬ 
mons  Basic. 


LINE 

Der  Befehl  LINE  zeichnet  eine  Li¬ 
nie  mit  den  angegebenen  Parame¬ 
tern  auf  dem  Bildschirm.  In  Bild  3 
sind  wieder  die  entsprechenden 
Programme  in  Basic  und  bei  Ver¬ 
wendung  des  Befehls  aus  Simons 
Basic  dargestellt.  Wie  man  an  dem 
Basic-Programm  sieht,  kann  man 
natürlich  den  Befehl  zum  Setzen  ei¬ 
nes  Punktes  als  Unterprogramm 
aufrufen.  Das  macht  aber  die  Aus¬ 
gabe  der  Linie  nicht  wesentlich 
schneller.  Daß  es  auch  in  einem 
Basic-Programm  nicht  einfach  mit 
der  Ausgabe  einer  geraden  Linie 
getan  ist,  sondern  auch  noch  einige 
Umwandlungen  zur  korrekten  Pro- 


20006  ren 

20007  REM  *  G  R  fl  F  I  K  EIN  * 

2 0 0 -0 8  R  E  M  '&■  #  #  #  ’if-  #  Hh  #  £  # $  if  H>i #  & T  #  H>:  ifc  #  #  ^ 

20020  POKEV+ 1 7 , 59 
20030  POKEV+24 24 
20840  FORLVä 1 02 4 T O2023 
20050  PÖKEL.. V  ,  HF-  -I- 1  S#ZF 
28860  HEXT 

20878  F0RLV-=8 1 92 TO 1 6333 
20080  PÖKEL V , 0 
20O90  HEXT 
20 1 00  P0KE5 3230 , HF 
201 10  RETURN 


RERDY. 


Bild  1a.  Einschalten  der  hochauflösenden  Grafik  in  Basic 


Bild  1b.  Grafik  einschalten  mit  Simons  Basic 
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2 0 4  0 0  F?  t  M  ft  ft  :'K  it: :+:  ft ft  .+:  5+:  ft  ft  +■  ft  ft  T #  ft  !+: :+:  ft '+  -¥■  $  #  ft  ft  ft  ft.  ft :+:  ft  +  #  ft  ;,F  ft  ft  ft 
20401  REM  *  P  U  M  K  T  E  S  E  T  2  E  N  * 

2 8 4  0 2  R  E  M  ft  ft  ft.  ft  *  *.:  ft  ¥  ¥  ft  ft  ft  ft  ft  ft  *  ft  ft  ft  ft  *  ft  ft  ft  ft  ft-  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft.  ft  ft  ft 
20410  IF  PX<0  OR  PJ-O-313  TUEN  RETURN 
20420  IF  PV<0  ÜR  PV>1 39  TH EH  RETURN 
2Ö4 30  HX=8* I NT  < PX/3 > 

20440  HV*=320*INT<PV/S>  +  <PV  AND  7> 

28460  BX=2t<7-<PX  AND  ?>> 

204  70  H 1  =3  1 92+HX+H1 V 

204 80  PÜKEH 1  ...  PEEK <  H 1  >  OR  BX 

20490  RETURN 

PLOT  FX  F'V  Bild  2.  Punkt  setzen  in  Basic  und  in  Simons  Basic 


grammausführung  notwendig  smd, 
ist  aus  dem  Listing  ersichtlich. 

REC,  CIRCLE,  ARC,  ANGL,  BLOCK 

Ähnlich  dem  Ziehen  einer  Linie 
werden  durch  diese  Befehle  ein 
Rechteck  (REC),  eine  Ellipse  (der 
Kreis  ist  ein  Sonderfall  der  Ellipse- 
CIRCLE),  Segmente  (ARC),  Radien 
(ANGL)  und  ausgefüllte  Rechtecke 
(BLOCK)  gezeichnet.  Für  Recht¬ 
ecke  und  Blöcke  können  wieder  die 
entsprechenden  Befehle  zum  Zie¬ 
hen  von  Linien  und  zum  Zeichnen  ei¬ 
nes  Punktes  als  Unterprogramme 
herangezogen  werden,  wenn  das 
ganze  in  Basic  programmiert  wer¬ 
den  soll.  Dabei  kann  man  einen 
Block  als  Darstellung  mehrerer  pa¬ 
ralleler  Linien  auffassen.  Für  die 
Ausgabe  von  Kreisen,  Ellipsen  und 
Segmenten  sowie  Radien  müssen 
die  entsprechenden  trigonometri¬ 
schen  Funktionen  Sinus  und  Cosi¬ 
nus  herangezogen  werden.  Das 
Zeichnen  eines  Radius  benötigt  nur 
zur  Bestimmung  des  Endpunktes 
diese  Winkelfunktionen,  und  ist  an¬ 
sonsten  analog  dem  Ziehen  einer  Li¬ 
nie. 


PAINT 

Mit  dem  Befehl  PAINT  läßt  sich 
eine  vorgegebene,  geschlossene 
Figur  (Rahmen)  mit  einer  Farbe 
ausfüllen.  Bei  entsprechend  kom¬ 
plizierten  Figuren  (Konvex  und 
konkav  gebogene  Randstücke, 
Aussparungen  in  der  Mitte)  ist  das 
schnelle  Ausfüllen  eines  vorgege¬ 
benen  Rahmens  im  Basic  auch  ein 
topologisches  Problem,  was  selbst 
einem  einigermaßen  geübten  Pro¬ 
grammierer  auf  Anhieb  nicht  gelin¬ 
gen  wird. 


DRAW,  ROT 

Mit  dem  Befehl  DRAW  kann  eine 
Figur  aus  lauter  Linien  zusammen¬ 
gesetzt  werden,  und  ink/iem  Be¬ 
fehl  ROT  kann  eine  "'derartig 
gezeichnete  Figur  um  verschiede¬ 
ne  Winkel  gedreht  werden. 


CSET 

Dieser  Befehl  hat  gleich  drei 
Funktionen: 

-  Zeichensatz  umschalten  (von  Gra¬ 
fik  auf  Groß/Kleinschrift  bezie¬ 
hungsweise  umgekehrt) 

-  Grafik  zurückholen 


20600  REN  H«*i4;********sk*^*****^if***^****^*****i+!* 

20601  REN  *  L  I  N  I  E  N  ZIEHEN  * 

20602  REN  .+ ft  ft  ft.  ft  *  ft  *  ftftft  *  ft  *  ft.  *  ft  *  *  ft  * ft  *  ft  *  ft  ft  ft  ft  ft  ft  *  ftftftft  ft  ft  ft  ft 
28610  IF  EX=fiX  OR  EV=fiV  THEN  H2=l  :GQTjgi20640 

20620  IF  ABS < EV--AV ')  <  FIBSCEN— fiX>  THEN  H2=l  :  GOTO  28648 
28630  H2-RBS < EN- HX > XFlBS < EV-RV > 

20640  I F  E  X  C  Fl  X  T  H  E  NH  2 = H  2  ft  - 1 
20658  H3= 1 

20660  I FE V<flVTHENH3«- 1 
20670  I F E  X=  H X THE N 2074 0 
20688  FQRLL=flXTÜEXSTEPH2 
20698  F’X=  I  NT  <  LLh-  .  5  ) 

207O0  PV-  C  k  LL-fiX  >  ft  < EV-flV  >  7  <  EX— FIX  >  >  +  AV 
2 0 7 1  0  G  0  S IJ  B 2 0 4 0 0 
20720  HEXT 
2G730  RETURN 
2  87"’ 40  PN=HN 

20750  F O R P V = fl V T 0 E V S T E P H 3 
2 0 7 6 0  G  0  S  IJ  B 2 0 4 0 0 
2077Ö  HEXT 
20788  RETURN 

L I  NE  HX FiV  ,r  EX E V  Bild  3.  Linie  ziehen  in  Basic  und  in  Simons  Basic 


-  Eine  mehrfarbige  Grafik  zurück¬ 
holen  und  dabei  diese  Grafik  mit 
anderen  Farben  versehen. 

CHAR,  TEXT 

Diese  beiden  Befehle  sind  be¬ 
sonders  wichtig,  da  im  Modus  der 
hochauflösenden  Grafik  keine 
Buchstaben,  Zahlen  und  sonstige 
Zeichen  ausgegeben  werden  kön¬ 
nen,  Diese  beiden  Befehle  ermögli¬ 
chen  einerseits  das  Ausgeben 
einzelner  Zeichen  (CHAR)  sowie 
ganzer  Textzeilen  (TEXT),  wobei 
die  Position,  die  Größe  und  die  Far¬ 
be  der  Zeichen  in  dem  Befehl 
selbst  angewählt  werden  können. 

Sprite-Befehle 

Auch  die  Sprite-Befehle  wollen 
wir  in  der  Reihenfolge  ihrer  Ver¬ 
wendung  besprechen. 

DESIGN 

Mit  diesem  Befehl  wird  dem  Spri¬ 
te  Speicherplatz  zugeteilt,  Dies  ist 
gegenüber  dem  normalen  Basic 
keine  wesentliche  Erleichterung, 
da  dies  dort  auch  mit  einem  einzi¬ 
gen  POKE-Befehl  erledigt  werden 
kann.  Da  man  bei  Simons  Basic 
aber  so  gut  wie  gar  nicht  mehr  auf 
POKE-Befehle  zurückgreifen  muß, 
ist  dieser  Befehl  doch  sinnvoll. 

@ 

Nachdem  der  Speicher  für  ein 
Sprite  zugeteilt  wurde,  muß  als 
nächstes  dieses  definiert  werden. 
Dies  kann  man  durch  21  Zeilen,  de¬ 
nen  ein  Klammeraffe  vorangestellt 
ist  und  die  jeweils  eine  Zeile  des 
Sprites  (12  oder  24  nebeneinander¬ 
liegende  Punkte)  enthalten. 

CMOB 

Dieser  Befehl  definiert  die  Far¬ 
ben  eines  Sprite, 

MOB  SET 

Im  Simons  Basic  bedeutet  die  Ab¬ 
kürzung  MOB  Moveable  Objekt 
Block.  Mit  dem  Befehl  MOB  SET 
werden  die  Eigenschaften  eines 
Sprites  fest  gelegt.  Das  sind  die  Far¬ 
be  des  Sprites,  die  Priorität  gegen¬ 
über  dem  Hintergrund  und  ob  hoch¬ 
auflösende  Grafik  oder  Multicolor 
Grafik  gewünscht  wird. 

MMOB,  RLOCMOB 

Diese  beiden  Befehle  dienen  zur 
Darstellung  beziehungsweise  zur 
Bewegung  des  Sprites.  Dazu  kön¬ 
nen  Start-  und  Zielposition  des  Spri¬ 
tes  angegeben  werden,  sowie  die 
Geschwindigkeit  mit  der  sich  das 
SPRITE  über  den  Bildschirm  bewe¬ 
gen  soll. 

MOB  OF 

Hiermit  wird  das  Sprite  wieder 
ausgeschaltet. 
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DETECT,  CHECK 

Diese  beiden  Befehle  dienen  zur 
Vorbereitung  einer  Kollisionsprü¬ 
fung  und  zur  Kollisionsprüfung 
selbst.  Auch  diese  beiden  Befehle 
sind  in  Basic  durch  einen  einfachen 
POKE-Befehl  sehr  schnell  zu  reali¬ 
sieren,  sie  ersparen  einem  aber  die 
umständliche  Suche,  welches  Byte 
im  Video-Controller-Chip  die  ent¬ 
sprechende  Aufgabe  wahrnimmt, 
und  das  Auseinanderziehen  der 
einzelnen  Bits. 


Musik-Befehle 


Die  Anwendung  der  Musik- 
Befehle  und  ihrer  Eigenschaften 
werden  am  besten  deutlich,  wenn 
man  sich  das  Beispiel  aus  dem 
Handbuch  ansieht  (Bild  4). 

Befehle  für  Zeichenreihen 


Die  Befehle  für  Zeichenreihen  er¬ 
geben  sich  aus  der  Befehlsüber¬ 
sicht  im  ersten  Teil.  Wir  wollen  hier 
nur  zwei  Befehle  besonders  hervor¬ 
heben: 

PLACE 

Der  Befehl  PLACE  wird  immer  da 
verwendet,  wo  eine  kleinere  Zei¬ 
chenreihe  in  einer  größeren  ge¬ 
sucht  wird.  Dieser  wichtige  Befehl 
fehlte  bisher  bei  allen  Commodore 
Basic-Generationen.  Sicherlich  hat 
jeder  Programmierer,  der  regelmä¬ 
ßig  Programme  schreibt,  sich  für 
diesen  Befehl  schon  ein  eigenes  Un¬ 
terprogramm  geschrieben. 


USE 

Mit  dem  Befehl  USE  wird  den  Pro¬ 
grammierern  ein  noch  größerer  Ge¬ 
fallen  getan  als  mit  dem  Befehl 
INST.  In  vielen  Programmen 
wünscht  man  sich  eine  formatierte 
Ausgabe  von  Zahlen.  Bisher  mußte 
dazu  immer  mühsam  ein  Basic- 
Unterprogramm  geschrieben  wer¬ 
den,  das  eine  Zahl  als  Zeichenreihe 
behandelt  und  in  eine  kaufmänni¬ 
sche  Zahlendarstellung  umwandelt. 
Was  bei  anderen  Basic-Dialekten 
selbstverständlich  ist,  wurde  für 
den  Commodore  Computer  in  Si¬ 
mons  Basic  realisiert. 

Befehle  für  Zahlen 


EXOR,  MOD,  DIV,  FRAC,  %  und  $ 

Die  sechs  auf  Zahlen  anwendba¬ 
ren  Befehle  sind  wohl  für  jeden  Pro¬ 
grammierer  im  mathematisch¬ 
technisch-wissenschaftlichen  Be¬ 
reich  unentbehrlich.  Dabei  ist  der 
Befehl  EXOR  kein  eigentlicher  Zah¬ 
lenbefehl.  Er  bildet  im  Prinzip  nur 
eine  weitere  logische  Verknüpfung 
neben  den  schon  vorhandenen 
UND,  ODER  und  NOT.  Trick-Pro¬ 
grammierer  benutzen  diesen  Befehl 
um  zwei  Zahlen  bzw,  B’t-Muster  zu 
vertauschen  ohne  Zuhilfenahme  ei¬ 
ner  dritten  Variablen. 

Der  Befehl  MOD  ergibt  den  Rest 
einer  Zahl  nach  einer  Division  (Mod 
(30,4)  =  2,  das  heißt,  30/4  =  7  REST 
2)  DIV  entspricht  dem  Basic-Befehl 
INT,  kann  jedoch  nur  die  Vorkom¬ 
mazahl  nach  einer  Division  bestim¬ 
men  (DIV  (30,4)  =  7) 


FRAC  hingegen  ergibt  die  Nach¬ 
kommastellen  einer  Zahl  (FRAC 
(3.56)  =  .56) 

Mit  %  wird  eine  Binärzahl  in  eine 
Dezimalzahl  umgewandelt  und  $  be¬ 
wirkt  das  Gegenteil. 

Gerade  bei  den  manigfaltigen 
Adressen  im  Video-Controller  des 
Commodore  64,  wo  einzelne  Bits  in 
Registern  gesetzt  oder  gelöscht 
werden  müssen,  um  bestimmte  Tä¬ 
tigkeiten  zu  erreichen  oder  zu  unter¬ 
lassen,  sind  diese  Funktionen  sehr 
nützlich. 

Wie  zu  Beginn  bereits  erwähnt, 
werden  die  Befehle  zur  Bildschirm¬ 
steuerung  von  Programmierern 
verwendet,  die  auch  das  letzte  aus 
ihrem  Computer  herausholen  wol¬ 
len.  Simons  Basic  bietet  dazu  sehr 
viele  Möglichkeiten. 

FLASH,  OFF,  BFLASH,  BFLASH  0 

Diese  Befehle  bewirken  das  Blin¬ 
ken  von  Bildschirmfarben  bzw.  des 
Rahmens.  Auch  die  Blinkfrequenz 
kann  variiert  werden. 

FÜHR,  FCOL,  FILL,  INV 

Mit  diesen  vier  Befehlen  können 
bestimmte  Bildschirmbereiche  mit 
Zeichen  und/oder  Farben  gefüllt 
bzw.  invertiert  werden. 

MOVE 

Der  MOVE-Befehl  dupliziert  Bild¬ 
schirmbereiche.  Bei  geschickter 
Bildschirmausgabe  durch  Cursor¬ 
steuerung  läßt  sich  auf  diese  Art 
und  Weise  auch  eine  fensterweise 
Ausgabe  wie  bei  den  Computern 
der  Serie  8000  erreichen.  In  diesem 
Falle  können  sogar  die  Fenster  in  ei¬ 
nen  anderen  Bereich  kopiert  wer¬ 
den.  Viertelt  man  zum  Beispiel  den 
Bildschirm,  so  kann  man  ein  Viertel 
für  die  normale  Bildschirmausgabe 
verwenden,  und  der  Anwender 
kann  sich  bei  Bedarf  diese  Bild¬ 
schirmausgabe  in  ein  anderes  Vier¬ 
tel  kopieren  um  eventuell  Datenver¬ 
gleiche  durchzuführen. 

LEFT,  RIGHT,  UP,  DOWN 

Simons  Basic  erlaubt  weiterhin 
Bildschirmbereiche  zu  rollen.  Dies 
kann  analog  zu  den  oben  angeführ¬ 
ten  Befehlen  nach  rechts,  links  oder 
nach  oben  und  unten  geschehen. 
Sehr  interessant  ist  zum  Beispiel, 
daß  auch  Bereiche  gerollt  werden 
können,  so  daß  der  Bildschirm  teil¬ 
weise  erhalten  bleibt  und  in  ande¬ 
ren  Bereichen  des  Bildschirms  fort¬ 
laufend  Daten  angezeigt  werden 
können.  Das  Bildschirmrollen  kann 
sowohl  zyklisch  als  auch  durch 
Nachziehen  von  Leerzeilen  bzw. 
-spalten  erfolgen. 


100 

REM  iiniitmiimMiiiMiiiimn 

1 10 

REM  «»•  BEISPIEL i  *4« 

120 

REM  • *  »  MUSIK  *»  * 

130 

140 

REM  ♦»*  LftUTSTrtERKE  E  IflSTELLEN  »»* 

150 

VOL  1 0 

180 

REM  •*»  WELLEI-FORM  EINSTELLEN  *«* 

1  70 

UttVE  1,00010000 

180 

REM  •**  HUELLEURVE  EINSTELLEN  ««* 

190 

Er  K'ELOPE  1  ,Q  ,B  ,8  .0 

200 

REM  »»»  FESTLEGE N  OER  NOTEN  ««* 

210 

*  J12*r5^5BF5B" 

220 

02«  =  ■■  G  5  tc  5  Bt:  5  5  »3  5  ■  C  5  5  5  5  2  • 

230 

rt2*=R2i*  -E5»:5S:5=E5lE5«:5iC5«:5|r 

240 

02 i=R2*« 

250 

02*»A2*  ♦  *G5S!5»:5S35:S:5S35»:5^5«- 

280 

82«-82S*"F5*‘ 

£70 

R3*» -C5BC5B- 

280 

MUS  1 C  8 ,ft**ft2*»A2S+A3* 

290 

REM  •*«  MUSIK  SPIELEN  »»« 

300 

PL  RV  1 

310 

REM  ***  L0UTST0ERKE  0  »*« 

320 

VOL  0 

330 

END 

■ 

Ergebn  i  s : 

‘ WHEN  THE  SAINTS  GO  MANCHING  INI* 

Musik  mit  Simons  Basic 
(entnommen 

wird 

gespielt. 

aus  dem  Handbuch) 
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SCRSV,  SCRLD 

Bildschirminhalte  im  normalen 
Modus  können  mit  diesen  beiden 
Befehlen  auf  Diskette  gespeichert 
beziehungsweise  wieder  geladen 
werden.  Dies  kann  zum  Beispiel  in¬ 
teressant  sein,  wenn  auf  dem  Bild¬ 
schirm  Balkengrafiken  dargestellt 
wurden,  deren  Daten  erst  mühsam 
errechnet  werden  mußten.  Zur 
nochmaligen  Anzeige  eines  solchen 
Diagramms  braucht  dann  keine 
neue  Berechnung  durchgeführt, 
sondern  lediglich  der  Bildschirmin- 
halt  von  Diskette  geladen  werden. 
COPY,  HRDCPY 

Mit  den  beiden  Copy-Befehlen 
sind  sowohl  die  Bildschirmausgabe 
von  hochauflösender  Grafik  (CO¬ 
PY)  als  auch  eines  Bildschirmes  im 
Normalmodus  (HRDCPY)  auf  einen 
Drucker  möglich.  Dies  sind  zwei  in¬ 
teressante  Befehle,  besonders  das 
Hardcopy  der  hochauflösenden 
Grafik,  da  dies  eine  relativ  umständ¬ 
liche  Druckerprogrammierung  er¬ 
fordern  würde. 


Befehle  für  LIGHTPEN, 
JOYSTICK  und  PADDLE 


Mit  den  vier  Befehlen  zur  Abfrage 
des  Status  der  obengenannten  ex¬ 
ternen  Hilfsgeräten  lassen  sich  si¬ 
cherlich  sehr  einfach  Spiele  pro¬ 
grammieren.  Statt  umständlicher  IF- 
Abfragen  im  Programm  können  die 
Werte  der  externen  Geräte  durch 
diese  Befehle  sofort  erfragt  und  so¬ 
mit  auch  gleich  weiter  verarbeitet 
werden. 


Sonstige  Befehle 


DESIGN 

Ähnlich  den  Sprites  können  auch 
die  Zeichen  des  normalen  Zeichen¬ 
satzes  neu  definiert  werden.  Mit 
dem  Befehl  DESIGN  wird  zunächst 
festgelegt  welches  Zeichen  erstellt 
werden  soll  und  mit  dem  Befehl  @ 
wird  dieses  Zeichen  auch  ähnlich 
wie  bei  den  Sprites  kreiert. 

DIR,  DISC 

Mit  dem  DISC-Befehl  können  Be¬ 
fehle  an  die  Floppystation  unmittel¬ 
bar  übergeben  werden,  ohne 
OPEN,  CLOSE  und  die  entspre¬ 
chenden  Fehlerkanäle  anzugeben. 
Mit  DIR  kann  das  Inhaltsverzeichnis 
einer  Diskette  ausgegeben  wer¬ 
den,  wobei  auch  Jokerzeichen  zuge¬ 
lassen  sind,  so  daß  ein  sogenanntes 
»Pattern  Matching«  möglich  ist.  Dies 
bedeutet,  daß  man  sich  Programme 
oder  Dateien,  die  ganz  bestimmte 


Buchstabenkombinationen  enthal¬ 
ten,  auszugsweise  auflisten  lassen 
kann. 

FETCH 

Der  FETCH-Befehl  ermöglicht  es, 
kontrollierte  Eingaben  im  Pro¬ 
gramm  zuzulassen,  ohne  daß  auf¬ 
wendige  INPUT-Routinen  geschrie¬ 
ben  werden  müssen, 

INKEY 

Sehr  wichtig  ist  auch  der  INKEY- 
Befehl,  da  er  abfragt  ob  eine  Funk¬ 
tionstaste  gedrückt  ist.  Dies  ermög¬ 
licht  eine  schnelle  Bearbeitung 
durch  den  Anwender,  da  nicht  im¬ 
mer  RETURN  nach  einer  Eingabe 
gedrückt  werden  muß,  beziehungs¬ 
weise  eine  umständliche  Überprü¬ 
fung  über  den  GET-Befehl  entfällt. 
LIN 

Normalerweise  beginnt  eine  Rou¬ 
tine  zum  Positionieren  des  Cursors 
immer  in  der  linken  oberen  Bild¬ 
schirmecke  und  steuert  die  ge¬ 
wünschte  Cursorposition  dann 
durch  eine  entsprechende  Anzahl 
von  »Cursor  Right«  und/oder  »Cur¬ 
sor  Down«  an.  Dies  muß  bei  absolu¬ 
tem  Cursorpositionieren  auch  dann 
erfolgen,  wenn  die  Ausgabe  bereits 
in  der  nächsten  Zeile  erfolgen  soll. 
Mit  dem  LIN-Befehl  ist  auch  eine  re¬ 
lative  Zeilenpositiomerum.  des  Cur¬ 
sors  möglich. 

MEM 

Für  Anwender,  die  ihren  Zeichen¬ 
satz  selbst  programmieren  bezie¬ 
hungsweise  diverse  Zeichen  verän¬ 
dern  wollen,  ist  der  MEM-Befehl  in¬ 
teressant,  da  er  ohne  komplizierte 
USR-Funktion  den  ROM-Bereich 
des  Zeichensatzes  in  den  entspre¬ 
chenden  RAM-Bereich  verlegt. 

PAUSE 

Sicherlich  hat  jeder  Programmie¬ 
rer  in  seinem  Programm  irgendwo 
eine  »leere«  FOR...NEXT-Schleife, 
um  eine  Anzeige  eine  gewisse  Zeit 
am  Bildschirm  aufrecht  zu  erhalten. 

Einerseits  ist  das  ein  Program¬ 
miertrick,  der  die  Dokumentation 
des  Programms  nicht  wesentlich  er¬ 
leichtert,  andererseits  ist  in  diesen 
Schleifen  nur  eine  ungenaue  Zeitan¬ 
gabe  möglich.  Mittels  des  PAUSE- 
Befehls  kann  man  nun  das  Pro¬ 
gramm  für  eine  genau  definierte 
Anzahl  von  Sekunden  anhalten  und 
sogar  zusätzlich  noch  eine  Meldung 
drucken. 

RESET 

Der  RESET-Befehl  ist  nicht  zu  ver¬ 
wechseln  mit  irgendwelchen 
RESET-Tasten  und/oder  -Schaltern. 
In  Simons  Basic  dient  er  zum  Setzen 
eines  Zeigers  auf  eine  beliebige 
DATA-Zeüe.  Dies  wird  dann  benö¬ 


tigt,  wenn  in  einem  Programm  meh¬ 
rere  verschiedene  DATA-Blöcke 
Vorkommen,  die  teilweise  oder 
ganz  neu  eingelesen  werden  müs¬ 
sen. 


Zusammenfassung 

Als  Ganzes  gesehen  ist  Simons  Ba¬ 
sic  mit  Sicherheit  eine  sinnvolle 
Basic-Erweiterung  für  den  Commo- 
dore  64.  Erfahrene  Programmierer 
können  die  Befehle  von  Simons  Ba¬ 
sic  sogar  in  den  meisten  Fällen  ohne 
genaues  Studium  des  Handbuches 
verwenden,  da  die  Syntax  der  Be¬ 
fehle  vollkommen  ausreichend  zu 
ihrer  Erklärung  ist.  Jedoch  emp¬ 
fiehlt  es  sich  zu  Beginn  ein  bißchen 
mit  den  Befehlen  herumzuspielen. 
Auch  für  den  Anfänger  ist  Simons 
Basic  eine  wertvolle  Hilfe,  jedoch 
dürfte  für  diesen  es  Anfangs  neu 
sein,  daß  auch  Basic-Befehie  Para¬ 
meter  erhalten  können,  was  zum 
Beispiel  in  hohem  Maße  bei  den 
Grafik-  und  Sprite-Befehlen  der  Fall 
ist. 

Die  unter  Programmierhilfen  zu¬ 
sammengefaßten  Befehle  bilden  ei¬ 
ne  weitgehend  ausreichende  Basis 
um  Programme  sehr  schnell  und 
methodisch  austesten  zu  können  be¬ 
ziehungsweise  die  Stuktur-Befehle 
ermöglichen  eine  übersichtlichere 
Programmstruktur,  die  sich  dann 
einfacher  dokumentieren  läßt. 

Insbesonders  erwähnenswert 
scheinen  mir  auch  die  Programm¬ 
schutz-Befehle,  die  zwar  an  sich  kei¬ 
nen  eigenen  Programmschutz  dar¬ 
stellen  (unerlaubtes  Kopieren  ist  im¬ 
mer  noch  möglich),  aber  in  Verbin¬ 
dung  mit  anderen  Schutzmaßnah¬ 
men  sicherlich  einen  ausreichen¬ 
den  Schutz  gegen  unbefugte  Pro¬ 
grammnutzung  darstellen  können. 
Man  denke  hier  nur  an  ein  Passwort , 
was  im  Programm  unkenntlich  ge¬ 
macht  wird,  so  daß  es  nicht  einfach 
dem  Programm-Listing  zu  entneh¬ 
men  ist. 

Das  Handbuch  ist  zwar  klar  und 
übersichtlich  gegliedert  und  mit 
ausreichend  erklärenden  Beispie¬ 
len  versehen,  jedoch  wären  man¬ 
che  Übersichtstabellen  (wie  zum 
Beispiel  eine  Zusammenfassung  al¬ 
ler  Befehle  nach  Bereichen  geord¬ 
net  mit  Angabe  ihrer  Syntax/Über¬ 
sicht  von  Befehlen  mit  Parametern) 
als  Nachschlagewerk  für  den  fort¬ 
geschrittenen  Programmierer  wün¬ 
schenswert. 

Fazit:  Simons  Basic  ermöglicht  es, 
den  Commodore  64  effizient  m  allen 
seinen  Möglichkeiten  zu  nutzen. 

(H.-L.  Schneider) 
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»SUPER«-Datenbank?  Vom 


cto«  ■>'«■  . 


für  den  Commodore  64 


superb 


von  zirka  300  Mark  mit  einer  Systemrfipkette,  einer 


Das  Handbuch  ist  sehr  übersicht¬ 
lich  aufgebaut  und  führt  im  er¬ 
sten  Teil,  dem  sogenannten  Tu¬ 
torium,  in  kleinen  Schritten  von  der 
Erläuterung  der  Tastatur  bis  zur 
komplexen  Fakturierung.  Die  ein¬ 
zelnen  Schritte  sind  verständlich  be¬ 
schrieben,  leider  nicht  in  deutsch! 

Im  zweiten  Teil  des  Handbuches 
werden  alle  Kommandos  ausführ¬ 
lich  erläutert,  auch  die  Funktionen, 
die  im  Tutorium  nicht  angesprochen 
werden.  Grundsätzlich  kann  mit  Su¬ 
perbase  64  ohne  irgendwelche  Pro¬ 
grammierkenntnisse  gearbeitet 
werden.  Wer  jedoch  tiefer  einstei¬ 
gen  will  und  sich  mit  den  »normalen« 
Funktionen  noch  nicht  zufrieden 
gibt,  bekommt  im  dritten  Teil  des 
Handbuches  genügend  Tips  und 
Tricks  zum  Experimentieren. 

Von  den  Anwendungsmöglich¬ 
keiten  zerfällt  das  Softwarepaket  in 
zwei  Bereiche: 

1 .  Datenbank-Management-System 
2,  Kalkulation  und  Fakturierung 


Mtf'c 
firt: 
band: 


edit-ti 


Hit:: 


Dat 


UH  den 


let2ten 


thnunsc 
C 


Uflg: 


Bild  4.  Oie  Kundendatei 


Bild  7. 


Die 


Maske 


HMi 


Der  Aufbau  und  die  Verwendung 
einer  Superbase-Datenbank  wird 
nachfolgend  anhand  eines  Schall¬ 
plattenarchivs  im  einzelnen  aufge¬ 
zeigt.  Im  Anschluß  daran  zeigt  ein 
anderes  Beispiel  die  Möglichkeit 
zur  Kalkulation  und  Rechnungser¬ 
stellung  auf. 

Schallplatten-Archiv  mit  Superbase 
64 

Um  mit  Superbase  64  arbeiten  zu 
können,  braucht  man  einen  Com¬ 


modore  64  und  ein  Diskettenlauf¬ 
werk  VC  1541.  Im  Gegensatz  zu 
manch  anderem  Dateiverwaltungs¬ 
programm  genügt  hierzu  wirklich 
ein  einziges  Diskettenlaufwerk,  da 
das  Programm  komplett  geladen 
wird,  beziehungsweise  die  erfor¬ 
derlichen  externen  Teile  mit  auf  die 
Datendiskette  kopiert  werden.  Das 
erfordert  zwar  etwas  mehr  Vorar¬ 
beit,  macht  aber  den  späteren  Ar¬ 
beitsablauf  angenehm  und  erfor- 
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Bild  3.  Das  Plattenarchiv 
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dert  keine  Diskjockey-Fähigkeiten. 
Da  grundsätzlich  alle  Datenbankab¬ 
fragen  und  -auswertungen  sowohl 
über  Drucker  als  auch  über  Bild¬ 
schirm  möglich  sind,  wird  der 
Drucker  nicht  unbedingt  benötigt, 
um  den  vollen  Funktionsumfang  nut¬ 
zen  zu  können. 

Mit  LOAD” SB ”,8,1  wird  in  zirka  2 
Minuten  zunächst  das  Programm 
geladen.  Danach  wird  die  System¬ 
diskette  gegen  eine  Datendiskette 


ausgetauscht.  Auf  diese  werden 
zunächst  die  Hilfsmasken  (help 
screens)  und  das  Demonstrations¬ 
programm  »Training«  kopiert;  Dau¬ 
er  zirka  6  Minuten.  Danach  wird  er¬ 
neut  das  Programm  von  der  System¬ 
diskette  geladen  und  anschließend 
die  Datendiskette  eingelegt. 

Diese  Vorarbeit  von  zirka  10  Mi¬ 
nuten  stellt  keinen  besonderen  Auf¬ 
wand  dar,  bietet  aber  den  unschätz¬ 


baren  Vorteil,  daß  für  alle  folgen¬ 
den  Arbeiten  keinerlei  Disketten¬ 
wechsel  mehr  notwendig  sind. 

Grundsätzlich  kann  eine  Superba- 
se-Datenbank  bis  zu  15  Einzeldatei¬ 
en  umfassen.  Ein  Datensatz  kann 
maximal  1108  Zeichen  lang  sein  und 
auf  4  Bildschirmseiten  verteilt  wer¬ 
den.  Pro  Satz  sind  maximal  127  Fel¬ 
der  inklusive  Schlüsselfeld  möglich, 
wobei  das  Schlüsselfeld  maximal  30 
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Backup-Diskette  und  einer*  englischen  Handbuch  ausgeliefert. 


Bild  5.  Die  Rechnungsdatei 
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Stellen  lang  sein  kann;  normale 
Textfelder  können  bis  zu  255  Zei¬ 
chen  beinhalten  und  sich  somit  auch 
über  mehrere  Zeilen  erstrecken. 

Wir  wollen  nun  eine  Schallplatten- 
Archivdatei  einrichten  und  dabei 
die  wichtigsten  Funktionen  aufzei¬ 
gen.  Wir  geben  auf  die  Frage  nach 
dem  Programmnamen  »Training« 
ein  und  beantworten  die  Aufforde¬ 
rung  »Enter  Filename«  mit  der  Ein¬ 
gabe  »Archiv«.  Danach  erscheint 
links  oben  die  Meldung  »Mode:  For¬ 
mat«,  das  heißt  wir  befinden  uns  im 
Formatierungsmodus.  Auch  bei  al¬ 
len  weiteren  Operationen  wird  links 
oben  der  jeweilige  Modus  ange¬ 
zeigt,  was  eine  angenehme  Orien¬ 
tierungshilfe  darstellt. 

Bildschirmmaske  definieren 

Auf  dem  im  übrigen  leeren  Bild¬ 
schirm  werden  nun  die  einzelnen 
Maskenfelder  definiert.  Dies  läuft 
im  einzelnen  folgendermaßen  ab: 

—  Feldnamen  eingeben 

—  Cursor  auf  Feldanfang  positionie¬ 
ren 

—  fl -Taste  drücken  und  Buchstaben 
für  Felddefinitionen  (zum  Beispiel 
»K«  =  Key,  »T«  =  Text,  »D«  =  Datum) 
eingeben 

—  Feld  mit  Cursor  durchlaufen,  bis 
der  Stellenzähler  rechts  oben  die 
gewünschte  Feldlänge  anzeigt 

—  Feldende  mit  RETURN-Taste 
markieren 

Alle  Felder  sind  nun  am  Feldan¬ 
fang  mit  einem  kleinen  ausgefüllten 
Quadrat  und  am  Feldende  mit  ei- 
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nem  größeren  schraffierten  Qua¬ 
drat  gekennzeichnet.  Mit  fl -Taste 
und  »I«  können  Felder  invertiert  dar¬ 
gestellt  werden,  mit  fl -Taste  und  »S« 
wird  der  gesamte  Bildschirm  inver¬ 
tiert.  Nachträgliche  Änderungen 
sind  etwas  umständlicher  durchzu¬ 
führen:  Mit  fl-Taste  und  »E«  (=  Er¬ 
ror)  wird  nur  der  Feldname  ge¬ 
löscht;  um  das  Feld'  ■  über  zu  lö¬ 
schen,  muß  der  Cursor  genau  auf 
den  Feldanfang  positioniert  werden 
und  nochmals  fl-Taste  und  »E«  ein¬ 
gegeben  werden. 

Wenn  die  Maske  endgültig  defi¬ 
niert  ist,  wird  sie  mit  der  fl-Taste  und 
der  RUN/STOP-Taste  abgespei¬ 
chert.  Gleichzeitig  werden  die  bis¬ 
herigen  Feldbegrenzungszeichen 
in » < « und » > « umgesetzt,  so  daß  die 
Maske  nun  so  aussieht  wie  in  Bild  1 
dar  gestellt. 

Menü-Steuerung 

Die  Frage  »DUPLIKATE  KEYS 
ALLOWED?«  wird  mit  »y»  oder  »n« 
beantwortet,  je  nachdem,  ob  man 
gleiche  Hauptschlüssel  zulassen 
will  oder  nicht.  Danach  meldet  sich 
das  Programm  mit  dem  Haupt¬ 
menü  1 .  Von  jetzt  an  wird  das  Arbei¬ 
ten  mit  Superbase  64  immer  mehr 
zum  Vergnügen.  Mit  RETURN  kann 
man  einfach  in  ein  Hauptmenü  2 
(Bild  2)  umsteigen.  Die  jeweils  ge¬ 
wünschte  Funktion  kann  wahlweise 
über  die  entsprechende  Funktions¬ 
taste  oder  die  Eingabe  in  der  Kom¬ 
mandozeile  ausgelöst  werden.  Mit 
der  f8-Taste  kann  aus  dem  Haupt¬ 
menü  1  jederzeit  eine  HELP-Funk- 
tion  aufgerufen  werden.  Die  Be¬ 
schreibung  der  gewünschten  Funk¬ 
tion  kann  hiermit  abgerufen  wer¬ 
den.  Außerdem  können  auch  eige¬ 
ne  HELP-Masken  definiert  werden. 


Daten  eingeben 

Über  Hauptmenü  1  und  der 
fl-Taste  wird  die  ENTER-Funktion 
gestartet.  Sofort  erscheint  eine  lee¬ 
re  Bildschirmmaske  und  links  oben 
»Mode  Entry«.  Das  Schlüsselfeld  ist 
ein  absolutes  Mußfeld.  Die  anderen 
Felder  sind  wahlweise,  sofern  sie 
nicht  mit  F  (=forced)  definiert  sind. 
Mit  RETURN  kommt  man  an  den  An¬ 
fang  des  nächsten  Feldes,  mit  HO¬ 
ME  an  den  Maskenanfang.  Drückt 
man  nach  dem  Ausfüllen  des  letzten 
Feldes  nochmals  RETURN,  so  wird 
der  Satz  sofort  abgespeichert.  Wer¬ 
den  nicht  alle  Felder  ausgefüllt,  so 
kann  das  Abspeichern  schon  vor¬ 
her  mit  SHIFT/RETURN  ausgelöst 
werden.  Mit  der  SPACE-Taste  be¬ 
kommt  man  das  nächste  Leerbild. 
Das  Duplizieren  von  Sätzen  ist  über 
»SELECT«  und  »A«  (  =  add)  möglich. 
Die  Dateneingabe  ist  schnell  und 
denkbar  einfach. 

Datenbank-Abfragen 

Hier  bietet  Superbase  64  nahezu 
unbegrenzte  Möglichkeiten.  Der 
schnellste  Zugriff  erfolgt  über  das 
Schlüsselfeld  (Key).  Die  Möglich¬ 
keiten  der  »SELECT«-Funktion  rei¬ 
chen  vom  beliebigen  Blättern  in  der 
Datenbank  bis  zu  kompliziertesten 
UND-  beziehungsweise  ODER- 
Verknüpfungen,  verbunden  mit 
Vergleichsoperationen  wie  größer, 
kleiner  oder  ungleich  (>,<,#).  Su¬ 
chen  mit  Joker  ist  genauso  problem¬ 
los  möglich  wie  Suchen  über  Match¬ 
code. 

Die  aus  der  gesamten  Datei  aus¬ 
gewählten  Sätze  können  nacheinan¬ 
der  am  Bildschirm  angezeigt  wer¬ 
den.  Sehr  angenehm  ist  es  auch, 
daß  man  jederzeit  auf  nicht  ausge¬ 
wählte  »Nachbar-Sätze«  springen 
kann.  Die  ausgefilterten  Ergebnisse 
zu  einer  Abfrage  können  auch  in  ei¬ 
ner  Hilfsdatei  abgelegt  werden.  Die 
Selektionsmöglichkeiten  von  Super¬ 
base  64  lassen  absolut  keine  Wün¬ 
sche  unbefriedigt. 

Sortierte  Datenbankauswertungen 

Durch  optimales  Zusammenwir¬ 
ken  der  Funktionen  »SELECT«, 
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»SORT«  und  »OUTPUT«  lassen  sich 
beliebige  Datenbank  aus  Wertungen 
in  übersichtlicher  Form  darstellen. 
Die  Ausgabe  kann  wahlweise  über 
Bildschirm  oder  Drucker  erfolgen. 
Wer  nicht  unbedingt  ein  schriftli¬ 
ches  Protokoll  benötigt,  kann  auch 
ohne  teuren  Drucker  fast  alle  Vor¬ 
teile  von  Superbase  64  voll  nutzen. 

Am  Beispiel  des  Schallplattenar¬ 
chivs  könnte  eine  sehr  einfache  Da¬ 
tenbankauswertung  folgenderma¬ 
ßen  aussehen: 

-  Mit  »SELECT«  und  »M«  (Matchco¬ 
de)  werden  zunächst  bestimmte 
Plattentitel  ausgewählt  und  in  der 
Datei  »HLIST«  abgelegt. 

-  Mit  »SORT«  und  »FROM  'HLIST' 
ON  (Plattentitel)«  werden  diese  Er¬ 
gebnisse  nach  Plattentitel  umsor¬ 
tiert. 

-  Mit  »OUTPUT«  und  »FROM 
' HLIST’  (Plattentitel)«  werden  alle 
Plattentitel  (ohne  andere  Felder)  am 
Bildschirm  ausgegeben  (siehe  Bild 
3). 

Daß  Superbase  64  auch  über  ei¬ 
nen  leistungsfähigen  Listenpro¬ 
grammgenerator  (REPORT-Funk- 
tion)  verfügt,  gehört  nach  den  bisher 
aufgezeigten  Funktionen  einfach  zu 
den  Selbstverständlichkeiten. 

Resümee  bei  der  Arbeit  mit  Su¬ 
perbase  64  als  Datenbanksystem: 
Hat  man  die  nicht  immer  ganz  einfa¬ 
chen  Vorleistungen  zur  Erstellung 
der  Datenbank  inklusive  Masken¬ 
definition  hinter  sich  gebracht, 
so  macht  die  Dateneingabe  und 
-pflege  Vergnügen.  Die  Abfrage- 
und  Auswertungsmöglichkeiten 
sind  nahezu  unbegrenzt,  das  heißt, 
man  kann  zu  Recht  von  einer  »SU- 
PER«-Datenbank  sprechen. 

Kalkulation  und  Fakturierung 

Die  vielfältigen  Funktionen  von 
Superbase  64  als  Datenbanksystem 
waren  schon  sehr  beeindmckend. 
Darüber  hinaus  enthält  dieses  Pro¬ 
gramm  jedoch  noch  Kalkulations¬ 
möglichkeiten,  wie  sie  sonst  oft  nur 
von  einem  separaten  Programm  ab¬ 
gedeckt  werden.  Damit  werden 
auch  Anwendungsgebiete  wie  Fak¬ 
turierung  und  Verkaufsstatistik  er¬ 
schlossen.  Auch  diese  Möglichkei¬ 
ten  sollen  wieder  anhand  eines  kon¬ 
kreten  Beispiels  aufgezeigt  werden. 
Kunden-Datei  aufbauen 

Zunächst  wird  eine  Kundendatei 
aufgebaut.  Neben  der  Kunden-Nr. 
9.4.  (=  Schlüssel),  Kundenname,  Te¬ 
lefon  und  Anschrift  werden  auch 
Felder  wie  Kredit-Limit,  Datum  der 
letzten  Rechnung,  Datum  der  letzten 


Zahlung  und  Saldo  aufgenommen 
(siehe  Bild  4).  Der  Aufbau  dieser  Da¬ 
tei  erfolgt  im  Prinzip  genauso  wie 
beim  Beispiel  des  Schallplattenar¬ 
chivs,  so  daß  hier  auf  nähere  Erläu¬ 
terungen  verzichtet  werden  kann. 

Rechnungsdatei  aufbauen 

Als  nächstes  wird  eine  Rech¬ 
nungsdatei  aufgebaut  mit  Rech¬ 
nungsnummer  (=  Schlüssel),  Kun¬ 
dennummer,  Datum  der  Rech- 
nungsserstellung,  Lieferung  (Stück¬ 
zahl  und  Artikel),  Preis,  Betrag,  Ra¬ 
batt,  Summe,  Mehrwertsteuer  und 
Endsumme  (siehe  Bild  5).  Diese 
Maske  beinhaltet  sowohl  Felder, 
die  jeweils  ausgefüllt  werden  müs¬ 
sen,  als  auch  solche,  deren  Inhalt  er¬ 
rechnet  wird  (Betrag,  Summe,  End¬ 
summe).  Diese  Felder  sind  bei  der 
Maskenerstellung  mit  »R«  (=  result) 
definiert  worden  und  beim  .tendie 
jeweilige  Rechenformel.  Diese  lau¬ 
tet  zum  Beispiel  für  das  Feld  Sum¬ 
me:  (Betrag)-(Betrag)*(Rabatt)/ 1 00. 

Sehr  angenehm  in  der  Bedienung 
ist  es,  daß  bei  numerischen  Einga¬ 
befeldern  automatisch  die  Buchsta¬ 
ben  auf  der  Tastatur  gesperrt  sind, 
was  Eingabefehler  verhindert.  Et¬ 
was  ungewohnt  ist  die  Form  von  Da¬ 
tumsfeldern,  die  alle  in  der  Form 
»JAN  1584«  ausgefüllt  werden.  Auf 
eine  Besonderheit  soll  noch  hinge¬ 
wiesen  werden:  Das  Feld  Lieferung 
ist  als  ein  durchgehendes  Textfeld 
definiert,  Am  Feldanfang  wird  ein 
numerischer  Wert,  nämlich  die 
Stückzahl  eingegeben,  danach 
durch  Leerstelle  getrennt  die  Arti¬ 
kelbezeichnung.  Bei  der  Kalkula¬ 
tion  erkennt  das  Programm  selbst, 
daß  es  mit  dem  Wert  »2«  rechnen 
soll. 

Verkaufsstatistik 

Bedient  man  sich  nun  wieder  der 
Funktion  »OUTPUT«,  so  kann  man 
sich  mit  der  Angabe  ALL  (Liefe¬ 
rung)  (Betrag)  eine  komprimierte 
Übersicht  über  alle  verkauften  Arti¬ 
kel,  Stückzahlen  und  Beträge  aus¬ 
geben  lassen.  Natürlich  könnte  die¬ 
se  Übersicht  zum  Beispiel  auch 
nach  Artikelbezeichnung  sortiert 
werden.  Eine  Verkaufsstatistik  auf 
Bildschirm  oder  Liste  ist  also  kein 
Problem. 


Dienstprogramme 

Der  gute  Eindruck  von  einem  soli¬ 
den  und  leistungsfähigen  Software- 
Produkt  wird  noch  abgerundet 
durch  einige  nützliche  Dienstpro¬ 
gramme.  Unter  anderem  kann  mit 
Catalog  jederzeit  der  Superbase¬ 
interne  Katalog  angegeben  werden 
beziehungsweise  mit  Directory  der 
Inhalt  der  gesamten  Diskette.  Mit 
Backup  können  schnell  Sicherungs¬ 
kopien  der  Datendiskette  erstellt 
werden.  Besonders  muß  noch  auf 
die  Funktionen  Import/Export  hin¬ 
gewiesen  werden: 

—  Mit  Import  können  Daten  von  ex¬ 
ternen  Programmen  eingelesen 
und  mit  Superbase-Dateien  zusam¬ 
men  weiterverarbeitet  werden. 

—  Mit  Export  können  Daten  aus 
Superbase-Dateien  als  sequentielle 
Datei  ausgegeben  werden,  die 
dann  von  anderen,  zum  Beispiel 
Basic-Programmen,  weiterverar- 
beitet  werden  können. 

Abschließende  Beurteilung 

Für  den  günstigen  Preis  von  zirka 
300  Mark  bekommt  der  Käufer  ein 
sehr  bedienungsfreundliches  Soft¬ 
ware-Paket,  das  so  viele  Möglich¬ 
keiten  bietet,  wie  man  sie  sonst  oft 
nur  mit  mehreren  Einzelprogram¬ 
men  geboten  bekommt.  Die  Funk¬ 
tionen  der  »SUPER«-Datenbank  sind 
beeindruckend.  Die  zusätzlichen 
Kalkulationsmöglichkeiten  eröffnen 
ein  breites  Anwendungsgebiet,  das 
weit  über  reine  Datenverwaltungen 
hinausgeht.  Besonders  angenehm 
sind  auch  die  komprimierten  Aus¬ 
wertungen  wahlweise  auf  Bild¬ 
schirm  oder  Drucker.  So  bleibt  mit 
Superbase  64  kaum  ein  Wunsch  un¬ 
erfüllt,  höchstens  der  nach  einem 
Handbuch  in  deutscher  Sprache. 

(Arnd  Wängler) 
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Um  es  vor¬ 
wegzunehmen:  Wer 
längere  Listen  in  passablen  Zeiten 
zu  Papier  bringen  will  (oder  muß), 
ist  mit  Datamat  nicht  allzu  gut  bera¬ 
ten.  ln  diesem  Punkt  ist  Datamat 
von  Data  Becker  den  heutigen  An¬ 
forderungen  in  punkto  Büroeinsatz 
keineswegs  gewachsen.  Wer  aber 
vor  allem  Wert  auf  viele  Sortier¬ 
möglichkeiten  legt,  erhält  für  99 
Mark  ein  recht  vielseitiges,  flexi¬ 
bles  Dateiverwaltungsprogramm. 

Die  Anleitung  besteht  aus  zwei 
Teilen:  Einem  ausführlichen  Einfüh- 
rungs-  und  Erläuterungsteil  und  ei- 


Zusammenfassung. 
Schon  aus  der  Aufmachung  der 
Anleitung  geht  eigentlich  hervor, 
daß  sich  dieses  Programm  vor  al¬ 
lem  am  Einsteiger  orientiert,  so  daß 
erfahrene  Anwender  erst  recht  gut 
mit  Datamat  zurechtkommen 
sollten. 

Was  die  Arbeitsgeschwindigkeit 
anbelangt,  so  werden  jene,  die 
schon  mit  teuren  »professionellen« 
Dateiverwaltungsprogrammen  ge¬ 
arbeitet  haben,  enttäuscht  sein. 
Datamat  ist  zum  großen  Teil  in  Ba¬ 
sic  geschrieben,  was  die  Pro¬ 
grammbearbeitung  nicht  gerade 
beschleunigt.  Das  Preis/Leistungs¬ 
verhältnis  insgesamt  gesehen  muß 


man  trotzdem 
zeichnen. 

Programmbeschreibung 

Für  Datamat  zur  Verfügung  ste¬ 
hen  muß  auf  jeden  Fall  das  Floppy- 
Laufwerk  VC  1541  und,  wenn  man 
drucken1  will,  ein  Drucker.  Will 
man  andere  Drucker  als  den  VC 
1525  oder  den  VC  1526  verwen¬ 
den,  wie  zum  Beispiel  Epson- 
Drucker,  so  können  diese  im  Me¬ 
nüteil  »Dienstprogramme«  mit  Hilfe 
einer  »Druckertabelle«  angepaßt 
werden. 

Nach  dem  Laden  meldet  sich 
»Datamat«  mit  dem  Hauptmenü.  Die 
einzelnen  Programmteile  lassen 
sich  mit  Hilfe  der  Cursortasten  an¬ 
wählen.  Die  Funktionstasten  sind 
mit  Befehlen  wie  »Zeilen  löschen«, 
»einfügen«  und  »abspeichern«  be- 
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3.  Datei  sortieren 

Die  zu  suchenden  Datensätze 
können  nach  mehreren  Kriterien 
ausgewählt  und  sortiert  werden. 
Sucht  man  in  einer  Adreßdatei  zum 
Beispiel  nach  »R*«  so  werden  alle 
Namen,  die  mit  »R«  beginnen  aus¬ 
gegeben.  Ebenso  kann  das  »R«  als 
Ober-  oder  Untergrenze  emgege- 
ben  werden,  wobei  dann  von  »A« 
bis  »R«  oder  von  »R«  bis  »Z«  gesucht 
wird.  Es  lassen  sich  aber  auch  Na¬ 
men  oder  Buchstaben  ausschlie¬ 
ßen,  die  nicht  berücksichtigt 
werden  sollen. 

4.  Datei  auswerten 

Auch  dieser  Programmteil  bietet 
recht  gute  Möglichkeiten.  Das  Aus¬ 
sehen  einer  Liste  kann  frei  gewählt 
werden,  in  dem  man  die  einzelnen 
Felder  auf  andere  (freie)  Stellen 
verschiebt.  Das  Drucken  von 
Adreßetiketten  ist  natürlich  auch 
hier  möglich,  was  eigentlich  immer 
bei  »professionellen  Datenverar¬ 
beitungsprogrammen«  vorausge¬ 
setzt  werden  sollte.  Darüber  hinaus 


Das  Menü 

1.  Datei  einric 
Dieser  Prograniritöil-  dient  dem 
Erstellen  der  Eingabemaske.  Es 
können  bis  zu  50  Eingabefelder  de¬ 
finiert  werden.  Ein  einzelnes  Feld 
kann  dabei  die  Länge  von  minimal 
/ei  Zeichen  und  maximal  40  Zei¬ 
len  haben.  Eine  Zeile  kann  meh¬ 
re  Felder  enthalten.  Die  Länge 
kompletten  Datensatzes  darf 
253  Zeichen  umfassen.  Die 
Eingabemaske  kann  unabhängig 
r  Dateizugehörigkeit  abgespei- 
rt  werden  und  kann,  falls  sinn- 
1,  für  verschiedene  Dateien 
mutzt  werden.  Das  Programm  er¬ 
ahnet  nun  aus  der  Größe  des  Da¬ 
tensatzes  und  des  Indexfeldes  die 
maximale  Anzahl  der  Datensätze. 
Die  folgende  Speicherplatzreser¬ 
vierung  ofoirnt  oft  mehrere  Minuten 
in  Ansp 
2.  D 
Die 
Erfass 
Löschen 
die  Mögli 
Hardcopy  v 
stellen,  womit  der  Ausdruck  von 
gesuchten  Datensätzen  gegeben 
ist.  Doch  leider  ist  gerade  diese 
Möglichkeit  gleichzeitig  ein 
Schwachpunkt.  Denn  hat  man  ver¬ 
sehentlich  den  Drucker  nicht  ange¬ 
schlossen,  stürzt  das  Programm 
kurzerhand  ab  und  man  darf  neu 
beginnen. 


gr 
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Unter¬ 
menü  von 
MULTIDATA 


a)  nach  Inc 

b)  über  Index  mit  *; 

c)  über  andere  Felder  als  das  In¬ 
dexfeld,  wobei  mehrere  Felder  als 
Kriterium  gewählt  werden  können. 
(Dies  ist  aber  sehr  zeitaufwendig!) 

d)  Kombinierte  Suche  mit  Indexfeld 
und  anderen  Feldern. 

Das  Suchen  ist  also  recht  einfach 
und  komfortabel,  nimmt  aber 
selbstverständlich  um  so  mehr  Zeit 
in  Anspruch,  je  mehr  Kriterien  man 
angibt. 

Ebenso  einfach  ist  das  Ändern 
und  Löschen  von  Datensätzen. 


wird  die  Möglichkeit  geboten,  Steu 
erzeichen  zu  senden,  die  zum  Bei¬ 
spiel  den  Schrifttyp  festlegen, 

Hier  gibt  es  also  vielseitige  Mög¬ 
lichkeiten,  auf  die  aber  in  der  An¬ 
leitung  nicht  deutlich  'genug 
hingewiesen  wird.  So  gibt  es  auch 
eine  Schnittstelle  zum  Textverar¬ 
beitungsprogramm  Textomat,  doch 
wird  auf  diese  auch  nur  sehr  vage 
hingewiesen. 

5.  Programme  beenden 
Leider  ein  weiterer  Schwach¬ 
punkt.  Im  Teil  eins  der  Anleitung 
wird  nicht  deutlich  darauf  hinge¬ 
wiesen,  daß  dieser  Programmteil 
immer  durchlaufen  werden  muß, 


legt.  Man  benötigt  immer  zwei  Dis-  Die  Eingabe  von  Daten  gestaltet 
ketten  (Daten-  und  Programmdis-  sich  recht  einfach  mit  Hilfe  der 
kette),  was  die  Bedienung  recht  Cursor-  und  der  Returiitaste. 
umständlich;  macht,  falls  man  nicht  Das  Suchen  bestimmter  Daten 
zwei  Floppy-Laufwerke  zur  Verfü-  kann  auf  recht  vielseitige  Weise  er- 
gung  hat.  folgen; 
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bevor  man  den  Commodore  64 
ausschaltet.  Sonst  geht  die  Index¬ 
datei  verloren,  was  schlicht  zur  Fol¬ 
ge  hat,  daß  die  ganze  Datei  als 
nicht  vorhanden  gilt.  Es  besteht 
zwar  die  Möglichkeit  den  Index  zu 
erneuern,  und  seine  Datei  zu  retten 
(siehe  Dienstprogramme),  aber  ob 
dies  die  optimale  Lösung  ist,  sei  da¬ 
hingestellt. 

6.  Dienstprogramme 

Dieser  Programmteil  bietet  fol¬ 
gendes: 

a)  Man  hat  die  Möglichkeit,  einen 
vorhandenen  Index  zu  erneuern 
oder  einen  bestehenden  Index  zu 
ändern,  falls  zum  Beispiel  ein  ande¬ 
res  Feld  als  das  ursprüngliche  zum 
Indexfeld  erklärt  werden  soll. 

b)  Durch  Erstellen  emer  »Drucker¬ 
tabelle«,  die  eine  Neudefinition  des 
Zeichensatzes,  eine  eventuellen 
Änderung  der  Sekundäradresse 
und  noch  einiges  mehr  beinhaltet, 
soll  es  möglich  sein,  fast  alle  belie¬ 
bigen  Druckertypen  zu  ver¬ 
wenden. 


Multidata 


Multidata  von  Commodore  ist 
vom  Preis  her  (298  Mark)  nicht  mit 
dem  Datamat  zu  vergleichen.  Doch 
es  geht  uns  um  das  Preis/Lei¬ 
stungsverhältnis,  bei  dem  Multida¬ 
ta  wohl  besser  abschneidet. 
Multidata  hat  allerdings  auch  ein 
integriertes  Textverarbeitungspro- 
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gramm,  um  das  der  Datamat  erst 
erweitert  werden  müßte.  Wenn 
man  also  das  reine  Datenverwal¬ 
tungsprogramm  beurteilt,  liegen 
beide  Programme  im  Preis  nicht  so 
weit  auseinander. 

Das  Handbuch  von  Multidata  lie¬ 
fert  alle  Informationen,  die  der  Be¬ 
nutzer  benötigt.  Die  Führung  durch 
das  Programm  wird  durch  das 
leicht  zu  handhabende  Menü  er¬ 
reicht.  Bevor  das  eigentliche  Ar¬ 
beiten  mit  Multidata  beginnt,  wird 
die  Sprache  abgefragt,  in  der  man 
arbeiten  will.  So  stehen  Englisch, 
Deutsch,  Französisch,  Italienisch 
und  Spanisch  zur  Auswahl.  Nun 
meldet  sich  das  Hauptmenü.  Es  ste¬ 
hen  die  Menüpunkte 

1.  Disketten  Formatierung 

2.  Disketten  Prüfung 

3.  Arbeit  mit  Dateien 

4.  Sortieren  von  Dateien 

5.  Listen/Aufstellung 

6.  Daten  Übertrag 

7  Te^sgäfbgitup.Op 

zur  Verfügung 
Die  Funktionstastenbelegung  ent¬ 
nehmen  Sie  bitte  dem  Bild.  Man 
kann  mit  ihnen  zum  Beispiel  steu¬ 
ern,  ob  man  mit  akustischen  Signa¬ 
len  arbeiten  will.  Sinnvoll  ist  dies 
vor  allem  bei  längerdauernden 
Operationen  wie  dem  Sortiervor¬ 
gang,  da  sich  das  System  dann  aku¬ 
stisch  zurückmeldet,  und  man  nicht 
ständig  auf  den  Bildschirm  sehen 
muß. 

Das  Menii 

1.  Disketten  Formatierung 
Multidata  benötigt  zum  Abspei¬ 
chern  von  Daten  oder  Texten  eine 
eigene  Diskette,  die  durch  diesen 
Menüpunkt  erstellt  wird.  Auf  die¬ 
ser  Diskette  können  dann  18  ver¬ 
schiedene  Dateien  und  18  ver¬ 
schiedene  Texte  gespeichert  wer¬ 
den.  In  der  Verarbeitung  können 
Texte  und  Daten  kompiniert  wer¬ 
den. 

Pro  Datei  sind  maximal 

9999  Datensätze  ohne  Index 

3699  Datensätze  mit  einem  oder 
mehreren  Indexen 
16  verschiedene  Informations- 
zeüen  (Felder) 

27  Zeichen  in  den  alphanume¬ 
rischen  Zeilen 

9  Ziffern  (Ganze-  und  Dezi¬ 


malstellen)  für  numerische 
Zeilen 

9  Zeichen  für  Dateneinnamen 
9  Zeichen  für  Zeilenbenen- 
nung 

zulässig.  Diese  Dateien  können 
dann  im  Menüpunkt  drei  erstellt 
werden. 

2.  Disketten  Prüfung 

Mit  dieser  Option  kann  man  zum  ei¬ 
nen  überprüfen,  ob  die  benutzten 
Disketten  betriebsfähig  sind,  zum 
anderen  das  Dateiverzeichnis  der 
zu  prüfenden  Diskette  lesen,  um  sie 
richtig  etikettieren  zu  können. 

3.  Arbeiten  mit  Dateien 

Wählt  man  diesen  Programmteil, 
erscheint  zunächst  eine  Auswahl 
zwischen 

a)  Erstellung  von  neuen  Dateien 

b)  Arbeit  mit  bestehenden  Da¬ 
teien. 

Bei  der  Erstellung  von  neuen  Da¬ 
teien  kann  man,  in  den  oben  er¬ 
wähnten  Grenzen,  die  Form  einer 
Datei  wählen,  die  man  benötigt,  wo¬ 
bei  mehrere  Indexfelder  bestimmt 
werden  können. 

Wählt  man  die  Arbeit  mit  beste¬ 
henden  Dateien,  so  erscheint  fol¬ 
gendes  Untermenü: 

1 .  Organisation  der  Datei 

2.  Neue  Datensätze  erstellen 

3.  Bestehende  Datensätze  suchen 

4.  Auf  andere  Disketten  kopieren 

5.  Reorganisation 

6.  Daten  löschen 

7.  Ganze  Datei  löschen. 

Bei  Organisation  der  Datei  wird 
dem  Benutzer  gezeigt,  wie  der  Da¬ 
tensatz  auf  gebaut  ist.  Die  restlichen 
Menüpunkte  sollen  an  dieser  Stelle 
nicht  weiter  erklärt  werden. 

4.  Sortieren  von  Dateien 

Mit  dem  Sortierprogramm  kön¬ 
nen  die  Datensätze  nach  bis  zu 
neun  Kriterien  sortiert  werden.  Man 
kann  sowohl  aufsteigend  als  auch 
fallend  sortieren.  Diese  Option  ist 
nur  für  das  Sortieren  allgemein  vor¬ 
gesehen.  Für  die  Ausgabe  be¬ 
stimmter  Datensätze  ist  der  folgen¬ 
de  Menü punkt  vorgesehen. 

5.  Listen  /  Aufstellungen 

Diese  Option  wird  verwendet,  um 
mit  dem  Computer  jede  Art  von  De¬ 
tailinformationen  auf  dem  Bild¬ 
schirm  zu  erzeugen  oder  auszu¬ 
drucken.  Hier  kann  man  wählen, 
welche  Bereiche  der  Datei  man  aus- 


54 


Ausgabe  5 /Mai  1984 

64er-online.de 

64er-oniine.net 


Software-Test 


Nlultidata  und  Datenmanager 


werten  will.  Weiterhin  bietet  diese 
Option  die  Möglichkeit,  mit  einzel¬ 
nen  oder  mehreren  Feldern  zu 
rechnen.  So  kann  man  zum  Beispiel 
DM-Angaben  in  Dollar  umrechnen. 
6.  Datenübertragung 

Dieser  Menüpunkt  dient  dem  au¬ 
tomatischen  Übertragen  von  Infor- 
matione^^n  einer  Datei  auf  eine 
andere.  So  körnen  hier  ganze  Sei¬ 
ten  oder  mich  aur  einzelne  Felder 
übertrage»  werden. 

7.  Textväybeitung/Etikettieren 

In  diesenSProgrammteil  können 
unter  anderem  mit  Multidata  er¬ 
stellte  Texte  mit  Dateien  kombiniert 
und  verarbeitet  werden.  Wo  in  den 
Texten  Daten  oder  Datensätze  ver¬ 
wendet  werden,  bleibt  dem  Benut¬ 
zer  überlassen. 

Die  Text-Erstellung  gestaltet  sich 
größtenteüs  recht  komfortabel,  hat 
aber  auch  ihre  Schwachpunkte.  So 
kann  man  zwar  die  linke  Seitenbe- 
grenzung  in  der  Zeile  einstellen, 
doch  für  die  rechte  Begrenzung 
kann  kein  Wert  eingegeben  wer¬ 
den.  Wenn  man  zum  Beispiel  die 
linke  Begrenzung  auf  10  einstellt, 
muß  man  selber  berechnen,  wie¬ 
viel  Platz  noch  in  der  Zeile  bleibt. 
Alles  in  allem  ist  auch  die  Textver¬ 
arbeitung,  nach  einiger  Gewöh¬ 
nung,  sehr  gut  zu  handhaben,  so 
daß  sie  sich  wohl  auch  kommerziell 
anwenden  läßt.  Beispielsweise  ist 
auch  das  Erstellen  von  Formbrie¬ 
fen  und  deren  automatisches  Ein¬ 
trägen  von  Adressen  vorgesehen. 

Wie  Commodore  uns  mitteilte, 
sind  die  neuesten  Versionen  von 
Multidata  um  einen  Programm¬ 
punkt  erweitert  worden.  Dieser 
Programmpunkt  läßt  das  Kopieren 
von  Datendisketten  auch  bei  einem 
Floppy-Laufwerk  zu. 


Datenmanager 


Der  Datenmanager,  (198  Mark) 
das  jüngste  Kind  von  Commodore, 
ist  keine  verkleinerte  Form  des 
Multidata,  sondern  ein  eigenständi¬ 
ges  Produkt,  das  aber  alle  Vorzüge 
des  »großen  Bruders«  bietet.  Auch 
in  diesem  Programm  sind  sowohl 
Datenverwaltung  als  auch  Textver¬ 
arbeitung  enthalten.  Das  Pro¬ 


gramm  verwaltet  die  Dateien  im 
Direktzugriff. 

Die  wichtigsten  Daten: 

Maximale  Anzahl  von  Datensät¬ 
zen  pro  Diskette: 

Bei  einer  Satzlänge  bis  zu  122  Zei¬ 
chen  1000  Datensätze; 
bei  einer  Satzlänge  bis  zu  247  Zei¬ 
chen  500  Datensätze; 

Maximale  Satzlänge:-  247  Zeichen; 
Maximale  Anzahl  von  Feldern  in  ei¬ 
nem  Satz:  10; 

Maximale  Anzahl  der  Indexdatei¬ 
en:  3; 

Maximale  Länge  emes  Textes  in 
KByte:  8;  (8  KByte  entsprechen  zir¬ 
ka  drei  Schreibmaschinenseiten). 
Maximale  Anzahl  von  Texten  auf  ei¬ 
ner  Diskette:  beliebig. 

Das  Programm  hat  wie  Multidata 
eine  einfach  zu  bedienende  Menü¬ 
steuerung.  Die  Menüpunkte  im  ein¬ 
zelnen  sind:  Dateiaufbau,  Eingabe, 
Suchen,  Blättern,  Ändern,  Löschen, 
geordnete  Listen,  Wechsel  von 
Disk,  Information,  Help,  Parameter, 
Farbe,  Textverarbeit  feg  und 
Ready. 

Um  einen  Programmpunkt  anzu¬ 
wählen,  ist  nur  der  Anfangsbuch¬ 
stabe  einzugeben.  Da  die  meisten 
uunkte  sich  selbst  erklä- 
ier  nur  auf  einige  hinge- 


§r  Menüpunkt  Paramater  steu- 
fast  alle  anderen  Funktionen, 
her  wird  eingestellt,  ob  ein  Daten¬ 
satz  ausgedruckt  werden  soll,  ob 
ein  automatisches  Weiterblättern 
erfolgen  soll  und  einiges  andere 
mehr.  So  kann  man  durch  eine  be¬ 
stimmte  Eingabe  das  Programm 
derart  einstellen,  daß  man  ein  Ar¬ 
beitsprotokoll  erhält. 

Im  Menüpunkt  »Farbe«  können 
Hintergrund-  und  Schriftfarbe  ge¬ 
wählt  und  eingestellt  werden.  Hier 
werden  alle  Farben,  die  der  Com¬ 
modore  64  zur  Verfügung  stellt, 
ausgenutzt. 

Help  zeigt  das  Hauptemnü  auf 
dem  Bildschirm,  denn  im  Pro¬ 
grammablauf  wird  jeweils  nur  nach 
dem  nächsten  Kommando  gefragt. 
Da  das  Menü  nur  über  die  jeweüi- 
gen  Anfangsbuchstaben  gesteuert 
wird,  die  sich  aber  leicht  merken 
lassen,  ist  dies  sicher  eher  ein  Vor¬ 
teil  als  ein  Nachteü. 

Wählt  man  die  Textverarbeitung, 


erscheint  folgendes  Unter menü: 
Holen  eines  Textes  von  Disk, 
Abspeichem  eines  Textes  auf  Disk, 
Schreiben  eines  neuen  Textes, 
Lesen  eines  Textes  in  Speicher, 
Drucken  des  Textes  im  Speicher, 
Erstellung  von  Serienbriefen, 
Inhaltsverzeichnis  der  Diskette, 
Wechsel  der  Textdiskette  und 
Zurück  zum  Hauptmenü. 

Auch  diese  Funktionen  sind  wohl 
so  deutlich,  daß  sie  keiner  Erklä¬ 
rung  bedürfen. 

Alles  in  allem  ist  der  Datenmana¬ 
ger  ein  sehr  gutes  Datenverwal- 
tungs-  und  Textverarbeitungspro¬ 
gramm,  von  dem  wir  von  Anfang  an 
begeistert  waren. 


Fazit 


Es  ist  wohl  etwas  übertrieben, 
wenn  Data  Becker  schreibt,  daß  Da- 
tamat  den  Commodore  64  zum 
Bürorechner  macht.  Bei  Multidata 
wird  dies  nicht  behauptet,  trifft 
aber  eher  zu. 

Leider  lassen  sich  beim  Datamat 
bei  falscher  Bedienung  Programm¬ 
abstürze  nicht  vermeiden.  Auf  te¬ 
lefonische  Anfrage  teilte  uns  Data 
Becker  mit,  daß  dies  auch  noch 
nicht  behoben  sei. 

Dafür  wird  aber  Anfang  Mai  eine 
Version  in  Maschinensprache  er¬ 
scheinen.  Die  Besitzer  der  jetzigen 
Datamat- Version  können  diese  für 
zirka  25  Mark  gegen  die  neue  Ver¬ 
sion  eintauschen.  Weiterhin  wurde 
uns  mitgeteüt,  daß  im  Frühsommer 
eine  erweiterte  Version  des  Data¬ 
mat  erscheint,  deren  Preis  zwi¬ 
schen  250  Mark  und  300  Mark 
liegen  wird. 

Multidata  dagegen  läßt  sich 
recht  sicher  handhaben.  Es  ist  uns 
im  Testbetrieb  nicht  gelungen,  das 
Programm  abstürzen  zu  lassen.  Die 
präzise  Menüführung  gibt  dem  Be¬ 
nutzer,  im  Gegenteil  zu  Datamat, 
auch  nicht  viel  Gelegenheit,  Fehler 
zu  machen.  Auch  bewußt  von  uns 
provozierte  Fehler  führten  weder 
zu  Datenverlust  noch  zu  Programm¬ 
absturz.  Dieselbe  Sicherheit  gilt 
auch  für  den  Datenmanager.  Klare 
Menüführung  und  gute  Handhab¬ 
barkeit  sind  auch  hier  vorherr¬ 
schend.  (H.  Rieble/rg) 
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anlegt,  kommt  man  beim  Sortieren 
schnell  in  den  Bereich  einer  Stunde. 
Daran  hat  der  Programmautor  aller¬ 
dings  gedacht  und  bietet  noch  ein 
schnelles  aber  dafür  weniger  ge¬ 
naues  Sortieren  an.  Es  wird  nur  nach 
den  Anfangsbuchstaben  der  Einträ¬ 
ge  sortiert.  So  kann  es  also  schon 
Vorkommen,  daß  ein  Herr  Abel  hin¬ 
ter  Herrn  Artus  zu  stehen  kommt. 
Dafür  ist  aber  kein  einziger  Disket¬ 
tenzugriff  erforderlich,  da  lediglich 
eine  Indexdatei,  die  sich  ständig  im 
Computer  befindet,  sortiert  wird. 
Diese  Indexdatei  enthält  die  An¬ 
fangsbuchstaben  aller  Felder  sämt¬ 
licher  Datensätze  und  wird  auch  bei 
jedem  Neueintrag  und  bei  jeder  Än¬ 
derung  aktualisiert.  Da  die  aktuali¬ 
sierte  Indexdatei  erst  bei  Beendi¬ 
gung  der  Dateiarbeit  auf  Diskette 
zurückgeschrieben  wird,  sollte  man 
seine  Arbeit  immer  regulär  über 
das  Menü  beenden  und  nicht  etwa 
den  Computer  einfach  ausschalten. 
Es  gehen  dann  zwar  keine  Datensät¬ 
ze  verloren,  möglicherweise  kann 
aber  wegen  einer  fehlerhaften  In¬ 
dexdatei  nicht  mehr  auf  alle  Daten¬ 
sätze  zugegriffen  werden. 

Kleine  Statistik 

Mit  der  Funktion  »Suchen  &  Sum¬ 
mieren«  kann  man  Datensätze,  die 
einem  Suchkriterium  genügen,  zäh¬ 
len  und  deren  numerische  Datenfel¬ 
der  einzeln  aufsummieren.  Enthält 
eine  Personaldatei  ein  Feld  »Mo¬ 
natsgehalt«,  so  könnte  man  leicht 
zum  Beispiel  das  Durchschnittsge¬ 
halt  aller  Betriebsangehörigen  über 
40  ermitteln.  Oder  man  denke  sich 
eine  Datei  zur  Verwaltung  eines 
Schallplattenarchivs  mit  Einträgen 
über  Komponist  und  Spieldauer  der 
Titel.  So  kann  man  schnell  in  Erfah¬ 
rung  bringen,  wieviele  Stunden 
man  ohne  Wiederholung  Bach  hö¬ 
ren  könnte. 

Fehlerhafte  Benutzereingaben 
werden  nicht  akzeptiert;  so  ist  es 
beispielsweise  nicht  möglich,  in  ein 
numerisches  Datenfeld,  wo  eine 
Postleitzahl  erwartet  wird,  etwas  an¬ 
deres  als  Ziffern  einzugeben.  Auch 
kann  man  einen  Datensatz  nicht  ab¬ 


speichern,  bevor  nicht  alle  Felder 
mit  irgendwelchen  Daten  belegt 
sind.  Dadurch,  daß  jeder  Datensatz 
nach  semer  Erstellung  oder  Ände¬ 
rung  sofort  auf  Diskette  geschrie¬ 
ben  wird,  verliert  man  selbst  bei 
Stromausfall  (oder  wenn  jemand 
den  Stecker  rauszieht)  keine  Daten. 
Schlimmstenfalls  geht  die  Indexda¬ 
tei  verloren.  Diese  kann  man  aber 
mit  dem  anfangs  schon  erwähnten 
Modul  (A)  regenerieren.  Es  ist  fer¬ 
ner  möglich  versehentlich  gelösch¬ 
te  Datensätze  wiederzuherstellen, 
wenn  man  sonst  an  der  Datei  noch 
nichts  geändert  hat. Es  ist  allerdings 
notwendig  deren  Nummer  zu  wis¬ 
sen,  wenn  man  nicht  alle  Datensätze 
»durchblättern«  will.  Auch  an  den 
Datenschutz  im  eigentlichen  Sinne 
des  Wortes  (das  heißt  die  Daten  vor 
dem  Menschen  zu  schützen)  wurde 
gedacht.  So  kann  man  erreichen, 
daß  eine  Datei  nur  nach  Eingabe  ei¬ 
nes  vierstelligen  Codewortes  zu¬ 
gänglich  wird.  Das  wird  allerdings 
einen  erfahreneren  Programmierer 
nicht  davon  abhalten,  direkt  auf  die 
Datei  zuzu greifen.  Ich  uJte  es  da¬ 
her  immer  noch  für  sicherer,  wichti¬ 
ge  Disketten  wegzusperren.  Es  sei 
noch  erwähnt,  daß  das  Programm 
einen  vernünftigen  Kopierschutz 
besitzt,  der  es  dem  Benutzer  ermög¬ 
licht,  Sicherheitskopien  anzuferti¬ 
gen.  Wird  das  Programm  von  einer 
Sicherheitskopie  geladen,  so  wird 
man  vor  dem  Start  aufgefordert, 
kurz  die  Originaldiskette,  quasi  als 
Berechtigungsnachweis,  einzule- 
gen.  Auf  diese  Weise  kann  man  sei¬ 
ne  Originaldiskette  schonen. 

Im  Lademenü  werden  neben  »Da¬ 
teiarbeit«  auch  die  Dienste  »Datei 
ändern«  und  »Neue  Datei  anlegen« 
angeboten,  Beide  werden  im  Hand¬ 
buch  anhand  von  Beispielen  erklärt. 
Man  kann  die  Struktur  einer  bereits 
bestehenden  Datei  ohne  Datenver¬ 
luste  verändern.  So  könnte  man  die 
Datensätze  auf  der  mitcfelieferten 
Datendiskette  um  ein  Feld  »männ- 
lich/weiblich«  (zu  Suchzwecken) 
oder  um  ein  Feld  »Bemerkung«  er¬ 
weitern.  Wenn  man  sich  über  die 
Struktur  seiner  Datensätze  im  kla¬ 
ren  ist,  gestaltet  sich  das  Ändern 
oder  Neuanlegen  sehr  komfortabel, 
da  man  interaktiv  durch  die  einzel¬ 
nen  Arbeitsschritte  geführt  wird. 
Man  wird  zunächst  nach  dem  Na 
men  der  anzuiegenden  Datei  ge¬ 
fragt  und  danach,  ob  diese  völlig 


neu  angelegt  werden  soll.  In  letzte¬ 
rem  Fall  wird  die  Diskette  neu  for¬ 
matiert,  also  alle  eventuell  vorhan¬ 
denen  Daten  gelöscht.  Anschlie¬ 
ßend  gibt  man  die  Bezeichnungen 
der  Datenfelder  em.  Es  sind  bis  zu 
30  Felder  je  Datensatz  mit  bis  zu  37 
Zeichen  möglich.  Ein  Zusatzfeld  zu 
14  Zeichen  für  Datum  und  Zeit  des 
Eintrags  ist  obligatorisch.  Man  wird 
weiter  aufgefordert,  Formate  für  die 
Felder  festzulegen.  Hier  kann  man 
die  Länge  der  Eingabefelder  festle¬ 
gen  und  bestimmen  ob  und  wo  zum 
Beispiel  nur  Ziffern,  nur  Buchstaben 
oder  nur  ja  oder  nein  erlaubt  sind, 
um  spätere  Fehleingaben  weitge¬ 
hend  auszuschließen.  In  einem 
nächsten  Arbeitsschritt  kann  man 
festlegen,  daß  auf  bestimmten  Ein¬ 
gabefeldern  ein  Ersatztext  erschei¬ 
nen  soll,  den  man  dann  bei  der 
Dateneingabe  überschreibt  oder 
einfach  mit  RETURN  übernimmt. 
Man  kann  aber  auch  die  Funktions¬ 
tasten  fl  bis  f8  mit  häufig  benötigten 
Texten  belegen.  Schließlich  wer¬ 
den  in  diesem  Arbeitsablauf  noch 
Standardbelegungen  von  Parame¬ 
tern  definiert,  die  man  aber  jeder¬ 
zeit  während  der  späteren  Dateiar¬ 
beit  ändern  kann.  Dazu  gehören  die 
Formatierung  beim  Drucken  und 
die  Belegung  der  f-Tasten.  Das 
Handbuch  erklärt  alle  diese  Schritte 
ausführlich  anhand  eines  Beispiel: 
»Schallplattenarchiv«. 

Maindat  64  ist  das  erste  Produkt 
einer  angekündigten  Reihe,  auf  die 
man  gespannt  sein  kann.  Vorstell¬ 
bar  wäre  ein  dazu  kompatibles 
Textverarbeitungsprogramm  oder 
ein  Kalkulationsprogramm,  das  die 
statistische  Behandlung  der  mit 
Maindat  64  erstellten  Datensätze 
weitgehend  unterstützt.  Wenn  ich 
abschließend  Maindat  64  mit  ande¬ 
ren  mir  bekannten  Dateiverwal¬ 
tungsprogrammen  vergleiche, 
schneidet  dieses  Programm  in  den 
wesentlichen  Beurteilungskriterien 
Bedienerfreundlichkeit,  Geschwin¬ 
digkeit,  Flexibilität  und  Datensi¬ 
cherheit  besser  ab.  Für  den  Preis 
von  128  Mark  inklusive  Mehrwert¬ 
steuer  erhält  man  sicher  einen  reel¬ 
len  Gegenwert.  Wenn  man  auf  dem 
kurzlebigen  Markt  für  Home- 
Computer-Software  mit  Standard¬ 
programmen  wie  Dateiverwaltung 
Fuß  fassen  will,  muß  man  sich  an  das 
Motto:  »Das  Bessere  ist  des  Guten 
Feind«  halten.  Bei  der  Entwicklung 
von  Maindat  64  wurde,  wie  mir 
scheint,  dieser  Grundsatz  berück¬ 
sichtigt.  (Thomas  Krätzig) 
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ISM  64  hat  uns  leider 
erst  kurz  vor  Redaktions¬ 
schluß  erreicht. 

Daher  konnte  kein  ausfuh 
»eher  Test  mehr  vorge- 
Ümen  «erde».  Mk  de- 
erste  Eindruck  war 
hervorragend.  Ein  voll- 
ständiger  Testbericht  wird 
noch  nachgereicht; 

ww  wollen  uns  hier  aut 
eine  umtangreiche 
Produktvorstellung  be¬ 
schränken. 


Professionelle 


er  ISM  64  (Index  Sequential  File 
Manager)  von  SM  Software,  ist 
ursprünglich  für  den  Eigenbe¬ 
darf  des  Herstellers  entwickelt  wor¬ 
den.  Diese  Vorstufe  bildet  die 
Grundlage,  auf  der  die  Anwender- 
Version  aufgebaut  wurde. 

ISM  64  ist  vollständig  in  6502  Ma¬ 
schinensprache  geschrieben  und 
läuft  auf  den  Commodore-Compu- 
tern  8032,  8096  und  64  (verschiede¬ 
ne  Objektversionen  und  System¬ 
starts).  Inklusive  der  benötigten  Puf¬ 
ferbereiche  werden  zirka  15  KByte 
Arbeitsspeicher  im  Computer  be¬ 
legt. 

Die  technischen  Daten  lauten: 
Variable  oder  feste  Satzlänge  von 
2  bis  31875  Bytes 

—  Frei  definierbare  Aufteilung  des 
Satzes  in  Feldern  (1  bis  125) 

—  Felder  fester  oder  variabler 
Länge 

—  Felder  und  Sätze  können  jeden 
Code  von  0  bis  255  erhalten,  also  be¬ 
liebig  gepackte  Daten 

—  Feldlänge  maximal  255  Bytes 

—  maximal  40  Schlüsselfelder 

—  Schlüssellänge  maximal  48  Bytes 


(46  Bytes  bei  mehrdeutigen  Schlüs¬ 
seln) 

—  Schlüssel  sind  immer  sortiert 
(Baumstruktur) 

—  Der  durch  Löschen  von  Sätzen 
freigegebene  Platz  wird  ohne  Reor¬ 
ganisation  wieder  verwendet  (aber 
nicht  für  andere  Dateien  freigege¬ 
ben) 

—  Maximal  65535  Records  zu  maxi¬ 
mal  254  Bytes  kann  eine  Satzdatei 
umfassen  (knapp  16  Millionen  By¬ 
tes) 

—  Durch  Anpassung  der  Recordlän¬ 
ge  an  die  Satzlänge  kann  eine  Platz¬ 
optimierung  erreicht  werden 

—  Maximal  zehn  ISM-Dateien  wer¬ 
den  gleichzeitig  dem  Anwender¬ 
programm  zur  Verfügung  gestellt 

—  Ein  einstellbarer  Puffer  zwischen 
einem  KByte  und  zirka  16  KByte  er¬ 
laubt  eine  Zugriffsoptimierung  auf 
Kosten  des  Arbeitsspeichers 

—  Die  Daten-Schnittstelle  zum  An¬ 
wenderprogramm  ist  ein  Stringfeld, 
das  die  einzelnen  Felder  des  Satzes 
enthält. 

—  Zur  Fehlerbehandlung  können 
zwei  verschiedene,  umfangreiche 


Statusmeldungen  verwendet  wer¬ 
den 

—  Als  Sonderfall  kann  die  Schlüssel¬ 
verwaltung  ohne  Satzdatei  und  um¬ 
gekehrt  verwendet  werden 

—  Schlüssel  können  nachträglich 
definiert  und  eingetragen  oder  ge¬ 
löscht  werden,  ohne  die  anderen 
Schlüssel  oder  den  Datensatz  zu  be¬ 
rühren 

—  Rekonstruktion  der  Schlüssel  auf¬ 
grund  der  Datensätze  möglich  (Zu¬ 
satzprogramm) 

—  Halbautomatische  Stapelverar¬ 
beitung. 

Wie  man  aus  dieser  Aufzählung 
ersehen  kann,  sind  die  Möglichkei¬ 
ten  der  ISM-Datenverwaltung  recht 
umfangreich  und  komfortabel.  Die 
Hauptanwendung  dieses  Pro¬ 
gramms  dürfte  wohl  im  professio¬ 
nellen  Bereich  liegen,  obwohl  ISM 
64  mit  einem  Preis  von  140  Mark 
auch  für  den  privaten  Anwender  er¬ 
schwinglich  ist.  Wenn  man  Daten¬ 
verwaltungsprogramme  auf  Groß¬ 
rechnern  mit  dem  ISM  64  ver¬ 
gleicht,  so  bietet  dieses  Programm 
doch  ähnliche  Möglichkeiten,  (rg) 
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Während  die  Urväter  der  Elektronikspiele  —  die 
Flipperautomaten  —  in  den  Spielhallen  um  ihre 
Existenz  kämpfen,  erieben 
sie  auf  dem  heimischen 
Fernsehbildschirm  eine 
wahre  Renaissance.  Aus 
dem  umfangreichen  Angebot 
haben  wir  »Night  Mission 
Pinball«  und  »David’s  Midnight 
Magic«  ausgewählt  —  zwei  Pro 
gramme  auf  Diskette  für  den 
Commodore  64. 


Auf  den  ersten  Blick  beeindruckt 
»Night  Mission  Pinball«  vor  al¬ 
lem  durch  seme  extrem  detail¬ 
lierte  Grafik  (Bild  l)  und  die  ausge¬ 
feilten  Toneffekte,  die  beim  Com¬ 
modore  64  gegenüber  der  ur¬ 
sprünglichen  Apple  II- Version  er¬ 
heblich  verbessert  und  den  Mög¬ 
lichkeiten  dieses  Computers  ange¬ 
paßt  wurden.  Die  Thematik  für  die 
'grafische  und  akustische  Gestal¬ 
tung  des  Flippers  bilden  nächtliche 
Bombenangriffe  der  Alliierten  auf 


deutsche  Städte  im  2.  Weltkrieg. 
Daher  kann  der  Spieler,  während 
die  »Flipperkugel«  die  verschiede¬ 
nen  Ziele  anschlägt,  neben  dem 
Dröhnen  von  Flugzeugmotoren 
auch  das  Sperrfeuer  der  Fliegerab¬ 
wehr  und  Bombendetonationen  hö¬ 
ren  —  wobei  man  allerdings  über 
den  Beitrag  dieser  Aufmachung 
zum  Spielwitz  geteilter  Meinung 
sein  kann, 

Wer  Night  Mission  Pinball  spielen 
will ,  muß — wie  in  Wirklichkeit — zu¬ 


erst  einen  »Quarter«  (25  Cents)  ein¬ 
werfen.  Das  geschieht  jedoch  nur 
per  Tastendruck  auf  dem  Bild¬ 
schirm.  Auch  ein  anderes  Merkmal 
ist  von  Vorbildern  aus  der  Spielhal¬ 
le  entlehnt.  Dort  kann  man  häufig 
beobachten,  wie  ein  Spieler  am  Ge¬ 
häuse  seines  Flipperautomaten  rüt¬ 
telt,  um  den  Lauf  der  Kugel  zu  beein¬ 
flussen.  Moderne  Geräte  besitzen 
daher  in  ihrem  Inneren  emen  Sen 
sor,  der  bei  starken  Erschütterun¬ 
gen  des  Spieltisches  die  gerade  im 
Spiel  befindliche  Kugel  disqualifi¬ 
ziert.  Im  »Night  Mission  Pinball«  kön¬ 
nen  derartige  Manipulationen  per 
Tastendruck  simuliert  werden,  wo¬ 
bei  auch  hier  zu  häufiger  Gebrauch 
dieser  Funktion  zur  Disqualifikation 
—  dem  sogenannten  »Tilt«  —  führt. 


sn 
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ses,  der  notwendig  ist,  um  gewisse 
Ziele  »anzuschlagen«.  Auch  der  Zu¬ 
fallsgenerator,  der  in  Computersi¬ 
mulationen  von  Flipperautomaten 
verwendet  werden  kann,  um  zu  ver¬ 
hindern,  daß  die  Kugel  nach  ihrem 
Abschuß  immer  auf  der  gleichen 
Bahn  läuft,  darf  vom  Benutzer  pro¬ 
grammiert  werden.  Da  es  bei  man¬ 
chen  Einstellungen  passieren  kann, 
daß  sich  die  Flipperkugel  an 
irgendeiner  Stelle  des  Spieltisches 
»totläuft«,  hat  man  außerdem  die 
Möglichkeit,  alle  Veränderungen 
vor  dem  Abspeichern  auf  Diskette 
vom  Computer  testen  zu  lassen. 
Wer  überdies  die  Einstellungen  an 
seinem  Flipper  vor  den  neugierigen 
Blicken  anderer  schützen  will,  kann 
dies  mittels  einer  sechsstelligen 
Zahlenkombination  tun. 


Knopfdruck  simuliert  werden  und 
ein  besonders  flinker  Spieler  hat 
überdies  die  Möglichkeit,  schon 
verloren  geglaubte  Kugeln  mittels 
einer  speziellen  Vorrichtung  —  den 
sogenannten  »Magicsave«-Magne- 
ten  —  zurückzuge  winnen. 

Dreidimensional 
auf  zwei  Ebenen 

Im  Gegensatz  zu  »Night  Mission 
Pinball«  ist  »David’s  Midnight  Ma¬ 
gic«  ein  Automat  mit  zwei  »Ebenen«, 
die  jeweils  durch  ein  eigenes  Paar 
Flipper  kontrolliert  werden.  Dieser 
Aufbau  macht  es  dem  Spieler  leich¬ 
ter,  mit  der  Kugel  bestimmte  Punkte 
auf  dem  Spieltisch  —  im  wesentli¬ 
chen  m  der  oberen  Hälfte  —  zu  er¬ 
reichen,  während  ihr  Lauf 


J‘°n 
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»Night  Mission  Pinball«  —  ein  Flipper¬ 
spiel.  das  vom  Benutzer  nach  eigenen 
Vorstellungen  verändert  werden  kann 

Um  das  Programm  noch  vielseiti¬ 
ger  zu  gestalten,  wurde  es  mit  einem 
speziellen  Editor  versehen,  mit  des¬ 
sen  Hilfe  der  Spieler  bestimmte  Pa¬ 
rameter  seines  Flippers  verändern 
kann.  Dazu  gehören  neben  der  Zahl 
der  Kugeln  pro  Spiel  und  der  Punk¬ 
tegrenze  für  ein  Freispiel  vor  allem 
physikalische  Eigenschaften,  wie 
die  Neigung  des  Tisches,  die  Ge¬ 
schwindigkeit  der  Flipperkugel, 
die  Empfindlichkeit  des  »Tilt«- 
Sensors  und  die  Stärke  des  Impul¬ 


»David's 
Midnight  Magic« 

—  Qualität  statt  Quantität 

Ein  ganz  anderes  Konzept  wurde 
bei  »David's  Midnight  Magic«  ver¬ 
wirklicht.  Zugunsten  eines  über¬ 
sichtlichen  Spieltisches  verzichtet 
man  hier  auf  jegliche  optische  und 
akustische  Gags  (Bild  2).  Dennoch 
sind  auch  in  diesem  Programm  die 
wesentlichen  Funktionen  eines  Flip¬ 
pers  vorhanden.  Ebenso  wie  in 
»Night  Mission  Pinball«  kann  das 
Rütteln  am  Automatengehäuse  per 


der  Hindernisse 
weitestgehend 
vom  Zufall 
abhängt.  Daher 
eignet  sich  »David’s 
Midnight  Magic«  beson¬ 
ders  gut  zur  Austragung 
spannender  Flipperturniere, 
denn  hier  wird  in  erster  Linie  spiele¬ 
risches  Können  mit  hohen  Punktzah¬ 
len  und  einem  der  begehrten  Plätze 
in  der  Bestenliste  belohnt. 

(E.O.  Malisch) 
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In  der  Natur  hat  man 
noch  kein  Mittel 
gefunden, 
um  das  Waldsterben 


aufzuhalten 


saure  Regen 


Commodore  64  ein 


das  Waldsterben 


zu  verhindern 


Die  Methode,  den  sauren 
gen  mit  einem  Zeppelin  auf 
zufangeii.  ist  in  der  Natur  wohl 
kaum  anzuwenden  Auf  dem  Cöm- 
modore  64  aber  kann  man  so  den 
Wald  vor  Schaden  bewahren 
Vor  Spielbeginn  werden  dem 
»Umweltschützer«  die  verschiede¬ 
nen  Arten  von  Wolken  erklärt  So 
gibt  es  normale  Regenwolken.  Wol¬ 
ken  mit  Saurem  Regen  und  die  ge¬ 
fährlichen  Gewitterwolken. 
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Zu  Beginn  des  Spiels  öffnet  sich 
am  rechten  Bildschirmrand  er  Be¬ 
hälter.  m  dem  man  den  abyefarige 
nen  sauren  Regen  zu  jeder  Zeit  ab¬ 
laden  kann.  Ist  der  Behälter  ganz 
gefüllt,  -wird  er  geschlossen,  von  ei¬ 
nem  LKW  abgehoit  und  entleert. 
Als  Bonus  bekommt  man  dann  einen 
Zeppelin  extra  und  ein  neuer  Baum 
wird  gepflanzt 

Die  Punktzahl  richte*  sich  nach 
der  Anzahl  der  abgefangenen  Wol¬ 


ken  mit  saurem  Rogen  Die  Anzahl 
der  Füllungen  im  Zeppelin  darf  bis 
zum  Entleeren  höchstens  neun  be¬ 
tragen.  Wird  dieser  Regen  nicht 
aufgefangen,  verdorrt  der  darun- 
terüegende  Baum.  In  dieser  Stufe 
kann  der  Baum  durch  Andocken 
des  Zeppelins  an  den  Behälter  oder 
durch  Bonus  wiederheryestellt  wer 
den  Wirddfei  Baum  ein  zweites  Mal 
getroffen,  ist  er  irreparabel  beschä¬ 
digt  und  knickt  um. 
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Normaler  Regen  darf  hingegen 
nicht  abgefangen  werden,  da  sonst 
die  Baume  verdorren.  Wird  die 
Wotke  schwarz,  handelt  er,  sich  um 
eine  Gewitterwolke.  Nun  sollte 
man  möglichst  schnell  das  Weite 
suchen,  denn  bis  zu  drei  Blitze  ver¬ 
lassen  die  Wolke  m  verschiedenen 
Richtungen.  Wenn  ein  Blitz  den 
Zeppelin  trifft,  zerschellt  er  mitsamt 
seiner  Ladung.  Die  besondere 


ligkeit  der  Bbtznehmng  Nur  durch 
gute  Reaktionen  ist  den  tödlichen 
Blitzen  zu  entkommen  Obendrein 
flattert  von  Zeit  zu  Zeit  ein  Vögel 

Blitze  und  Vögel  machen 
einem  das  Leben  schwer 

durch  die  Landschaft  der  es  dar¬ 
auf  abgesehen  hat,  den  Zeppelin 
anzupieksen.  Auch  dem  Vögel  soll¬ 
te  man  also  ausweichen. 


Das  Spiel  ward  mit  Höne  der 
Punktzahl  immer  schwieriger,  da 
die  Schnelligkeit  zunimmt  und  der 
saure  Regen  dann  zum  Teil  gezielt 
eingesetzt  wird. 

Raingame  ist  ein  »umweltbewuß 
res«  Geschicküchkeitsspiel,  das 
durch  seinen  Schwierigkeitsgrad 
sicher  nicht  schnell  zu  beherrschen 
ist,  und  somit  auch  nicht  schnell 
langweilig  ward 

(rg) 
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Machen  Sie  Schluß  mit  der  Zettelwirtschaft!  Wozu  haben 
Sie  einen  Commo- 
dore  64  mit 
Floppy?  Im  Zeit¬ 
alter  der  Elektronik 
verwaltet 
man  seine 
Adressen  mit 
dem  Computer. 


Sp  e  i  c  h  e  r-  t>  e  1  e  g  u  n  g 


me mory : 307 1 9b  y t e  s 
pr-ogram:6208bytes 
var iables s 0b  y  t  es 
arrays • 0b  y tes 
str ings :0bytes 
free  s  £45 1 1 b  y i e  s 


satz  gelöscht  oder  geändert 
werden. 

Beim  Verändern  der  Da¬ 
ten  muß  auf  jeden  Fall  der 
gesamte  Teil,  wie  bei  der 
Eingabe,  neu  überschrie¬ 
ben  werden  (GET-Schleife, 
kein  INPUT).  Soll  ein  Teü 
nicht  geändert  werden,  so 
ist  »f7«  zu  drücken  und  der 
Cursor  springt  weiter.  Ver¬ 
ändern  lassen  sich  alle  elf 
Datensatzteile,  außer  Name 
und  Vorname. 

Beliebig  viele 
Daten 

Die  Datei  ist  für  100  Daten¬ 
sätze  angelegt.  Bei  mehr  als 
100  Datensätzen  ist  die  DIM- 
Anweisung  für  F$  in  Zeile 
100  entsprechend  zu  än¬ 
dern.  Die  Datei  selbst  wird 
unter  »ADR.-DATEI«  auf  Dis¬ 
kette  abgespeichert  und  ist 
als  verkettete  Liste  organi¬ 
siert,  das  heißt,  in  jedem  Da¬ 
tensatz  ist  notiert,  wo  sich 


Dieses  Programm  bietet 
eine  komfortable  Möglich¬ 
keit,  Adressen  und  Telefon¬ 
nummern  auf  Diskette 
abzuspeichern.  Man  kann 
Adressen  und  Telefon¬ 
nummern 

—  eingeben 

—  auf  dem  Bildschirm  aus¬ 
geben  lassen 

—  löschen 

—  ändern 

—  suchen 

—  auf  Diskette  abspeichern 

—  von  Diskette  einiesen. 

Menüsteuerung 

Vom  Menü  aus  kann 
man  in  die  Programmteile 
»Eingabe«,  »Ausgabe«,  »Su¬ 
chen«,  »Daten  speichern«, 
»Daten  einiesen«  und  »Datei 
vorbereiten«  springen 
(Funktionstasten).  Der  Pro¬ 
grammteil  »Datei  vorberei¬ 
ten«  dient  zur  Eröffnung 
einer  Datei  und  braucht  da 
her  nur  einmal  bei  der  er¬ 
sten  Benutzung  des 
Programms  ausgeführt  wer¬ 
den.  Jedesmal,  nachdem 
Datensätze  eingegeben,  ge¬ 
löscht  oder  geändert  wur- 


den,  muß  die  Datei  natürlich 
wieder  mit  »f2«  abgespei¬ 
chert  werden. 


SSW-™ 


Eingabe 


Bei  der  Eingabe  (mit  »f3«) 
werden  Name,  Vorname, 
Geburtstag,  Wohnort,  Post¬ 
leitzahl,  Straße,  Hausnum¬ 
mer,  Telefon  und  Vorwahl 
eingetippt.  Dabei  kann 
»DEL«  zum  Löschen  benutzt 
werden.  Ist  ein  Name,  Vor¬ 
name  etc.  vollständig  einge¬ 
geben,  wirb  mit  »RETURN« 
abgeschlossen,  und  der 
Cursor  springt  zum  näch¬ 
sten  Emgabekriterium 
(wenn  über  die  gesamte  Li¬ 
nie  geschrieben  wird, 
springt  der  Cursor  automa 
tisch  weiter). 

Bei  der  Ausgabe  kann  un¬ 
ter  »sortiert«  und  »physika¬ 
lisch«  ausgewählt  werden, 
das  heißt,  die  Datensätze 
werden  entweder  nach  Na¬ 
me  und  Vorname  sortiert 
ausgegeben  oder  in  der 
Reihenfolge  wie  sie  einge¬ 
geben  wurden. 

Beim  Suchen  wird  zu¬ 
nächst  abgefragt,  wonach 
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gesucht  werden  soll.  Wird 
ein  entsprechender  Daten¬ 
satz  gefunden,  so  wird  die¬ 
ser  dann  ausgegeben. 
Danach  kann  nach  dem 
gleichen  Suchkriterium  so¬ 
fort  weitergesucht  werden. 
Im  Such-  und  Ausgabemo¬ 
dus  (hierbei  nur  in  der  sor¬ 
tierten  Ausgabe)  kann  der 
gerade  angezeigte  Daten- 


64  £Wüü* 


der  nächste  Satz  befindet. 
Dadurch  lassen  sich  neu 
eingegebene  Daten  schnell 
einsortieren  und  in  der  Aus¬ 
gabe  kann  zwischen  »sor¬ 
tiert«  und  »physikalisch« 
unterschieden  werden. 

Alle  Eingaben  werden 
überprüft,  so  daß  keine 
Fehlermeldungen  (zum  Bei¬ 
spiel  »REDO  FROM  START«) 
auftreten  können. 

(Arne  Weitzel) 
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10  rem****** ******* *  *  *  * **************** 
20  rem******** * * *********************** 


30  rem***** 
40  rem***** 
50  rem***** 
80  rem***** 
70  rem*#*** 


arne  ueitzel 


r itter -von -hal t-str . 17 


***# 
**** 
**** 
*  *  *  * 
**** 


Listing  des  Basic-Programms 
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5608  r  adevor  rnual  d 
80  r  em# ******  **************  ************ 

90  rem********************************* 

100  d  im-f  $<  100/  1  1  >  ,£-u$<  1  1  )  ,na$(  1  1  )  :poKe738,52 

110  s  i  =54272  *  -f  1  =s  i  !  -f  h  =s  i  +  1  !  1 1  =s  i  +2  s  -th  =s  i +3  !  uu  =s  i +4  s  aa=s  i  +5  J  hh  =s  i  +6  !  v  1  =s  i  +24 
120  na$(  1  )  =  "Name  ”Jna$(2)  =  "Vorname  "  i  na$(3  )  =  "Geburtstag  "  !na$<4)  =  "Gebur-tsir.onat  " 
130  na$(55  =  "6eburt£jahr  "!na$(6)  =  "Strasse,,:Kia$<7)  =  " Hau s n u mme r  " 

140  na$<8  Postleitzahl  "  s  na$(9  >  =  "Wohnort  "  ■  na$(  10  >  =  "  Vor  ui  ah  1  "  :  na$(  11>  =  "  Telefon" 

150  rem*********  m  e  n  u  e  ************* 

160  poKe 198,0 ipr int ehr  *<  142 > spoKe 53280, 12: poKe 53281 ,3 
170  pr  int  "aSETtab  (  1  1  V3J - 1" 
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180  pr  inttab ( 1 1 > "  |  "tab  (27)  "  |  " 


180  pr  inttab  <  1  1  )  "  J - K" 

200  pr  int"  IEEE!"  t  ab  (  1 3  )  "  p  e  r  sonendate  i 


■K  " 


2  10  pr  inttab  (7)  "EEEOU - 

220  for  i  =  1  to  13:  pr  inttab  (7)  "  |"tab(32)n  snexti 


I 


23©  pr  inttab  (7)  "J - K 

240  pr  int  ” SEEEEEEEEI" t ab  (9)  "fflausgaben 


■K 


:  5*fl 


:  üf  6 


310  gete$:  ife$="  "then3  10 

320  i-f  (asc  (e$)<  133 )or  (asc  <e$>  >139>then310 

330  rno  =  a  s  c  <  e  $)  -  1 3  1  :  o  nmogo  t  o  170,450,360, 1  180,930, 1050,2020,340 
340  pr  int  "ä";  *clr  srestore  Spoke53£80, 14  :  poKe532S  1  ,6ser.d 
350  rernMtfM*#«  eingabe  *  #  *  *  ##  #  #  #  *  *  #  # 

360  mo$=  "EINGABE  :  "  : -f  3=  15  1  : +4=  15  1  spoKe  53280 , 15  :  po  Ke  5328  1  ,  12  i  pp  in  t  ehr  $(f  3  > 

370  pr  int  "  33”  s  g  o  s  u  b  830 : p  r  i n  t  c h r  $ ( 1 4  )  '•  g ö £ u b 970 

380  f  or  j  =  1  tü  1  1  :  gosub  1860  :  sys58640 

390  gosub 680 J  f$(an  +  1 , j  ) =a$:next : an  =an  +  1 

400  go£ub  1  1  10  *go£Ub  1640  s  pr  int :  pr- int  "EEEEMKHe  itere  Eingaben  ( -/n > " ; 

410  getw$: if w$=‘‘ "then4 10 
420  1*10$=  "n  "then  160 
430  goto 360 

440  rem*## *******  aus gäbe  ************* 

450  poKe53280 , 14  :  poKe532S  1  ,  14  Listing  des  Basic-Programms  für  das 

460  pr  int  11  a-EEEEEEEEI" t  ab  (15)  "Ausgabe  :  fij"  Adreß-  und  Telefonregister  (Fortsetzung) 

470  p  r  inttab  (10)"  Elfi  -  sortiert" 

480  pr-  in  1 1  ab  (  10  )  " £|f  3  -  phys  iKal  isch  " 

430  getau$t  if (au$="  "  )or  (au$<  >,,a,,andau$<  > "a"  >then490 
500  z =0 : go£ub£000 
5  10  if  au$=,,3Tthen530 

520  z  =2  +  1  :  ifz>anthengosub610:gotol60 
530  pr  int  "ä"  :  iff$(z  ,0)  =  "(2  * t hen520 
540  gosub630 : gosub 1640 

550  pr  int  "SEEEMöB14e  itere  Ausgaben  7  <-/n)"* 

560  getui$:  if  w$=  "  "then560 
570  ifio$="n  ”then  160 
580  g  o  t  o  520 

590  ma=z : z  =  val (f $(z ,0) ) : ifz=0thengosub610:goto 160 
600  pr int "äT : gosub630 : goto  1490 

610  orint" e  inp  weiteren  Personen  erfasst  !":gosubl640 
620  for i  =  lto 3000 : n ex t sreturn 

630  PoKe 53280, f 1 :poKe53281 ,f£:Printchr$<f3) !gosub330 
640  Pr int  "!"tab <25 ? "EHDatensatz  "z;chr$<f4> 

650  f  or.j  =  lto  1  1  :  gosub  1860  :  sys 58640 

660  Printf$(z,j  )  :  n  e  x  t  j  :  r  e  t  u  r  n 

670  rem****#*##****  in put  ************ 

680  1  1  =0.*a$="  "  J  PoKe204  ,0 

630  getaa$: if aa$= " "then690 

700  if  a.se  (aa$)<  >  1 3t h e n 730 

710  if 1 1 =0then690 

720  pr  in t  " ;  :  p o K e 204  ,  üreturn 

730  if asc (aa$)( >£0then760 

740  if  1  I  =0ther.690 

750  Pr  int  "JlLil" ?  :a$=l  ef  t$(a$,  1  en  (a$)  -  1  )  :  1  1  =1  1  -  1  :goto690 
760  ifaa$<  >  ”3" t her. 780 
770  goto300 

780  printaa$; :a$=a$+aa$: 1 1 =1 1 +1 
790  if 1 1 < 1 then690 
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S00 
810 
880 
830 
840 
850 
860 
870 
880 
890 
800 
810 
320 
930 
940 
850 
360 
970 
980 
980 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1080 
1  100 
1  1  10 
1  120 
1  130 
1  140 
1  150 
1  160 
1  170 
1  180 
1  190 
1200 
12  10 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1380 
1400 
1410 
1420 


ifpeeK  <20?  >then800 
poKe204 , 1 : re turn 

rem** ********  l.maske  ************** 
pr  intchr$<  14)  :pr  int  " SVJUH" mo $ 

print"  EWD" ;  i  f  o  r  i  =  1 1  o  35 :  p  r-  i  n  t "  "1  s  n  e  x  t  i  :  p  r-  i  ri  t 

fori=lto5:printtab<l)"H  "tab<35)"  "  snexti 

pr-  int  "UH"  '  :  for-  i  =  lto35  :  pr-  int  "  "  *  i  next  i 

pr  int " H«EEEEElUI4ame  :  "  :  pr-  int  "ElOfw'or-name 

p r-  in t  " EEIEUBe b o r- e n  s  Uli.  >■!.  " 

pr  int  "SWH'Johnhatt  :  " 

pr-  int  "SMStr  .  : 

pr  i n 1 1  ab  < 27  )  " Nr  .  :  " 

pr  int  "SHPlz  :  "  ; 

pr  int  t  ab  <  12  )  "Ort  !" 

pr  int  " EWT elefort  :  lllllll  " 

return 

rem*** ******  2.masKe  ************** 

-f  or-  j  =  1  to  1  1  :  gosub  I960  :  sys  58640  s  f  or  i  =  1  to  1  s  pr  in  t  ;  :  next  i  ,  j  i  return 

r-ern** ********  ein  lesen  *********** 

pr-  int  "sSHE1"t  ab  <  15)  "HB  e  in  lesen  "  :  i*0:openl  ,8,2,"adr  .  -date  i  ,s  ,r  ” 

-f  or- j  =0t  o  1  1 
i  n  p  u  t  #  1  ,  f  -£  <  i  ,  j  ) 

next :  itst  <  >64then i  =  i  +  1 : goto  1000 

close  1  i an  =  i  *  goto 160 

r- e in* ********* *.  speichern  ********* 

P  r-  i  n  t  "  9EEI"  t  ab  <  1 5  )  "  Hfl]  speichern  "  :  o  p  e  n  1  ,  8  ,  2  ,  "  0  :  ad  r  .  -d  at  e  i  ,  s  r  w  ” 

■fori  =ot  oan 

f or j =0t o  1  1 

pr  int#  1  ,-fS<i  ,j  ) 

nextj  ,  i  :  c  1  o  s  e  1  igoto 160 

r-ern*********  e  insor-t  ier-en  **  ****** 

ma  =0  :  u  z  =v  a  1  (-f$(0,0)):zz=gz 

if vz =0then 1160 

mb  =ma  :  ma  =v  z-'vz  = v  a  1  (-f$(ma,0)) 

i -f  (f  $(ma  ,  1  )  <  t  $ <  an  1  )  )  o  r-  <  <  f  $  C ma  ,  1  )=f  $(an  ,  1  )  ) an  d  < f  $ Cma  , 2  )  <  t  $  <  an  ,  2  )  )  )  t  h e n  1  120 

f#(an  ,0)=str$<ma)  J  f  $  <  mb  ,0)=str$(an  )  ireturn 

f$(an  ,  0  )  =  "  0  "  :-f$(ma,0)=£tr$<ari  )  ireturn 

rem  *********  suchen  ************* 

p  o  Ke  53280 ,  1 4  :  p o K  e 5328  1  , 7 :  p r-  in  t  c h  r  $ <  14) 

p r  in  t  " iS"  f  sgosubl 930 


SUCHEN  : 

soll  gesucht  werden  ?SEI' 
’IW-  "  /  na$(j  )t  ab  <20  )  "  i  "  ’ 

0  "  :  goto  1260 
+  "  igoto  1260 


print"  EQ9 
pr-  int  " SWUSi-'Jo n ach 
-forj  =  lto  1  1  ipr  int 
ifj=10thenpr int " 
it.j  =  1  lthenpr  int  " 
pr  int j 
next 

gete$:  if  e^=  "  "then  1270 

if  (asc(e$X48orasc  <e$)  >57) and  (e$<  >"  +  "  )then  1270 

if e$= "0" then su  =  10i goto  1320 

if  e$="  +  "thensu  =  1  1  .'goto  1320 

su  =asc <e$) -48 

j  =su i gosub I960 

pr  int  ufiam“Fia$(&u  > 

in  put  "aiHClHM"  ; su$<su  > :  iflen<su^<su)>  =0then  1340 
iflen (su$(su ) >  >1 then gosub 1370  =  go to 1340 
goto  1400 

gosub  1 6 4 0 i f  o r  i  =  lto4 

Fr  int  INGABE  ZU  LANG  !  "  :  f  or-j  =  lto200  *-  next  j 

pr-  in  t  "M»l  "  :  f  or  j  =  lto200  :  nextj  ,  i :  return 

g  f  —0 • z -0 

i f  oa 1  <f  $  < z , 0 ) ) <  >0t h  e n g o  t o 1 460 

if  gf -Othenpr  int  "äElEEEOHUBKe  ine  entsprechenden  Personen  erfasst 


Listing  des  Basic-Programms 

für  das  Adreß-  und  Telefonregister 

(Fortsetzung) 


igoto  1450 
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Adreß-  und  Telefonregister 


C  64 


1430 

Elz  u  t  r  e  f  f  e  n  de"; 

1440 

p r  i n t  " IF'e rsohen  n  icht  erfasst  !  " 

1450 

gosub  1 640 : f  o  r  i  =  lto  5000  :  n  e  x  t  .'goto  1 60 

1460 

ma=z  :  z  =val  <f $<z ,0 ) > 

1470 

if f $<z ,su )<  ?then  14  10 

1480 

pr  irrt  “3" : gosub630 :gf  =  1 

1430 

gosub  1640  Sprint  EtU^  iter  "m£*;tab  <18>  "  -  -fl" 

1500 

pr  int  '»»Eride  "ml$i  tat  <  13  >  "  -  f3" 

15  10 

pr  int  M »Lo eschen  “iab  (  18)  11  -  -f5" 

1520 

pr  in-fc  "UFer.der  r.  "tab  <  18)  "  -  +7"; 

1530 

getui* :  if  id$="  "then  1530 

1540 

1 a=asc <w«)-132! if  <1 a< 1 >or  <1 a>4>then 1530 

1550 

if  rno  =2thenon  1  ago  to530 ,  160 , 1590  ,  1730 

1560 

or.l  agoto  14  10, 160,1580,1720 

1570 

rem  **********  loeschen  ********** 

1580 

pr  int  "^EEIMHLOESCHEN  :  "  :  pr-  int  "SCEMfatensatz  "z" 

J  ";f $<z , 1 > "  ,  "f$<z,2> 

1590 

z  l$=f*<z  ,0)  :f*<z  ,0)=“G" 

1600 

f  $<rna  ,0)=zl$ 

1610 

f oru  =  1 1 o3000 : next 

16£0 

z  =ma s  g  o  t  o 1 800 

1630 

rem****** ********  tori  ************ 

1640 

PÖKevl  ,  15 

1650 

poKeaa ,2*16+3 

1660 

poKet 1  ,0:poketh,8 

Listing  des  Basic-Programms  für  das 

1670 

POKehh, 15*16+2 

Adreß-  und  Telefonregister  (Fortsetzung) 

1630 

pcKef h ,6£:poköf 1  ,5 

1690 

pokernd  ,65 : for i  =  lto 100 : next : pokewu ,64 

1700 

return 

1710 

rem* *********  aendern  ************ 

1720 

mo$=  "AENDERN  :  ”  :  -f  1  =9  :  f  2=3  :  -f  3=  155  :  f  4=5 

1730 

pr  int  "SR?"  :gosub970:  gosub630  s  pr-  in  1 1  ab  <8  >  "EtBKä+SKe  ine 

Aenderungen  -  f?jä+" 

1740 

PoKe  198,0 

1750 

for j=3to  1 1 :  g  o  s  u  b  186©  i  sys58640  :  gosub680:  if  aa$<  >"H"then-f  *<z  ,j  )=a$ 

1760 

next 

1770 

pr  int  sgosub  1648  s  pr  int  "aslcEÄÄrienderungen  Korrekt  ?  < 

~/X\  >  "  i 

1730 

getu$: if u$= " “then 1730 

1790 

i  +  u  ^  =■  "  n  "  t  !i  e  n  1730 

1800 

p  r  int"  äEECEEEllRWe  iter"  m2$  "  <  -/n  >  " 

1830 

getw$:  if  ui$=  "  "then  1810 

1820 

ifu*="n  "then  160 

1820 

if  rno  =4thengosub  1390;  goto  1410 

1840 

gosub2000 :goto6 10 

1S50 

reiri*********  print  at  ************ 

1860 

on j  go  to  1870, 1380, 1830, 1900, 1310, 1320, 1330, 1940, 1350 

, I960, 1370 

1870 

l=2i:sp=13:ze=5:goto 1380 

1880 

1 =£1  : sp  =  13: ze =7: goto  1980 

1830 

1 =2:sp=l 1 :ze=l 1 :yoto 1980 

1900 

1 =2 i sp  =  14  s  ze  =  1 1 s got o 1980 

1910 

1 =4:sp=17:ze=ll :  got  o 1380 

1320 

1 =13:sp=7:ze=15:goto 1980 

1330 

1  =  <q  :£p-32:ze  =  15;goto  1380 

1940 

l=4:sp=7:ze=17:gotol980 

1950 

l=18:sp=18:ze=l?igoto 1980 

1S60 

1 =5:sp=llJze=13:goto 1 380 

a  *  . 

1970 

1 =5*sp=17*ze=19ägoto 1980 

1980 

pok'e214,ze  :poke21  1  ,sp  Jreturn 

1390 

mo^=  “SUCHEN  :  "  :  ml$=  "Suchen  "  :  m2$=  "suchen  "  *  f  1  =  14  s  f  2=6 

:f 3=155 : f 4=158 sreturn 

2000 

mo$=  "  AUSGABE  :  "  :ml$="  Au s'g ab e n  "  i  m£$  =  " e  Au s g ab e n  "  :  f  1  = 

14sf£=l 1 :f 3=155 

2010 

f 4=5 : re turn 

2020 

pr  int  "^B,'tab  <  18  )  "  ABI  datei  vor  bereiten  " 

2030 

f*<0 ,0>-"0"  ;forj  =  lto  1  1  HS(0,j  >  =  ■■-"  .-next 

2040 

open  1 ,8 ,2  ,  "adr . -dat e  i  ,s  ,u  " 

2050 

f or j =0to  1  1 

2060 

P  r  i  n  t  #  1  ,  f  $  <  0  ,  j  ) 

2070 

next  :  c  1  o s e  1  Note  160 
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VC  20  +  8  KByte 


Programm-Datei 


pÄfN^ 


Dieses  Programm 
ist  ein  Beispiel,  wie  man  mit  dem 
VC  20  eine  relative 
Datei  erstellen  und  nutzen  kann. 
Das  hier  vorgestellte  Programm  hilft 
den  Überblick  in  seiner 
Programmsammlung  zu  behalten. 


Durch  das  Sammeln  und 
Kopieren  von  Program¬ 
men  ergibt  es  sich  zwangs¬ 
läufig,  daß  gewisse  Informa¬ 
tionen  wie  Kopieradressen 
und  ähnliches  immer  wieder 
gebraucht  werden.  Diese 
Angaben  legt  man  ge¬ 
wöhnlich  in  einer  Kartei  ab 
oder  schreibt  sie  auf  einen 
Zettel,  der  wahrscheinlich 
bei  längerem  Nichtge¬ 
brauch  in  den  Mülleimer 
wandert.  Daraus  resultiert, 
daß  beim  späteren  Kopieren 
eines  Programmes  die  ver¬ 
lorenen  Informationen  in 
mühsamer  Kleinarbeit  am 
Computer  erst  wieder  erar¬ 
beitet  werden  müssen.  Dies 
bewog  mich,  ein  Programm 
zu  konzipieren,  mit  dem  die 
Fülle  der  wichtigen  Daten 
von  Programmen  auf  einer 
Diskette  gespeichert  und 
nach  Bedarf  wieder  eingele¬ 
sen  werden  können. 

Um  das  Programm  mög¬ 
lichst  kurz  zu  halten  und  um 
keine  Routinen  doppelt  zu 
schreiben,  ist  es  in 
Blocks/Subroutinen  ge¬ 
schrieben,  die  durch 
Sprungbefehle  immer  wie¬ 
der  angesprungen  und  ge¬ 
nutzt  werden.  Deshalb  be¬ 
sitzt  das  Programm  eine  Län¬ 
ge  von  nur  5  760  Byte.  Der  zu¬ 
sätzlich  benötigte  Speicher¬ 
platz  für  die  maximale  Länge 
der  Eingaben  beträgt  478 
Bytes.  Mehr  zusätzlicher 
Speicherplatz  wird  nicht  be¬ 


nötigt,  da  es  sich  ja  um  eine 
relative  Datei  handelt.  Das 
bedeutet,  daß  das  Pro¬ 
gramm  im  laufenden  Zu¬ 
stand  mit  insgesamt  6  238  By¬ 
te  Länge  ohne  Schwierigkei¬ 
ten  im  VC  20  mit  Erweiterun¬ 
gen  ab  8  KByte  RAM  läuft. 
Das  Programm  ist  ausgelegt, 
um  die  Daten  von  250  Pro¬ 
grammen  aufzunehmen,  Es 
können  also  genügend  Da¬ 
ten  von  Programmen  gespei¬ 
chert  werden. 
Programmbeschreibung: 

Nach  dem  Start  mit  RUN 
meldet  sich  das  Programm- 
Menü  auf  dem  Bildschirm. 
Von  hier  aus  wird  nach  der 
entsprechenden  Wahl  in 
die  einzelnen  Routinen  ver¬ 
zweigt.  Um  die  Bildschirm¬ 
maske  während  des 
Programmlaufes  erhalten  zu 
können,  mußte  darauf  ver¬ 
zichtet  werden,  weitere  Me¬ 
nüs  zu  programmieren.  Es 
sind  allerdings  die  Funk¬ 
tionstasten  fl/f5/f7  während 
des  Programmlaufes  be¬ 
legt.  Wenn  man  sie  benö¬ 
tigt,  wird  das  im  oberen 
Bildteil  optisch  und  über 
Lautsprecher  auch  aku¬ 
stisch  angezeigt.  Die  Anzei¬ 
ge  erfolgt  in  zwei 
Kombinationen,  das  heißt 

a)  fl  /  fS  /  f7 

b)  fl  /  f7 
dabei  bedeutet: 

fl  =  Rücksprung  zum  Menü 
f5  =  Datenspeicherung 
f7  =  Datenänderung. 


fl  —  Dateneingabe 


Nac'  ücken  der  Taste  fl 
wird  in  die  Routine  zum  Da¬ 
teieröffnen  verzweigt.  Die 
Datei  wird  geöffnet  (erstma¬ 
liges  Öffnen  der  Datei  nimmt 
einige  Minuten  in  Anspruch) 
und  anschließend  nach  der 
Recordnummer  gefragt.  Die 
Recordnummer  ist  die  Num¬ 
mer  unter  der  die  gesamte 
Eingabe  auf  dem  Disketten¬ 
laufwerk  abgespeichert  und 
mit  der  bei  Abfrage  wieder 
eingelesen  wird.  Nach  Ein¬ 
gabe  der  Recordnummer 
erfolgt  der  Bildschirmauf¬ 
bau  und  die  Dateneingabe. 
Jetzt  erfolgt  oben  beschrie¬ 
benes  Einblenden  der  Funk¬ 
tionstastenbelegung.  Durch 
Drücken  von  fl  erfolgt  ein 
Rücksprung  ins  Menü.  Mit  f5 
wird  in  die  Speicherroutine 
verzweigt  und  im  oberen 
Bildteil  zum  Zeichen  des 
Speicherns  das  Wort  »SA¬ 
VE«  angezeigt.  Anschlie¬ 
ßend  wird  das  Hauptmenü 
wieder  eingeblendet.  Mit 
Druck  auf  f7  springt  das  Pro¬ 
gramm  in  die  Eingabekor¬ 
rekturroutine.  Es  können 
jetzt  falsche  Eingaben  korri¬ 
giert  werden,  welche  dann 
ohne  weiteren  Tastendruck 
durch  die  Speicherroutine 
auf  der  Diskette  abgelegt 
werden. 


f3  —  Datenausgabe 

Die  Datenausgabe  erfolgt 
über  die  Taste  f3  vom  Menü 
aus.  Die  Datei  wird  geöffnet, 
und  es  wird  nach  der  einzu¬ 
lesenden  Recordnummer 
gefragt.  Nach  Eingabe  wird 
der  entsprechende  Record 
über  die  Einleseroutine  (Zei¬ 
len  105  bis  123)  eingelesen, 
die  Bildschirmmaske  neu  er¬ 
stellt  und  der  Record  über 
die  Ausgaberoutine  der 
Bildschirmmaske  einge¬ 
schrieben.  Es  folgt  wieder 
die  Einblendung  der  beleg¬ 
ten  Funktionstasten,  mit  de¬ 
nen,  wie  schon  beschrieben, 
zu  verfahren  ist. 

f7  —  Datenänderung 

Durch  Betätigung  der  Ta¬ 
ste  f7  wird  in  die  Änderungs¬ 
routine  gesprungen.  Es  kann 
hier  auf  weitere  Programm¬ 
beschreibungen  verzichtet 
werden,  da  das  Programm 
von  hier  aus  die  bekannten 
und  schon  beschriebenen 
Subroutinen  aufsucht,  deren 
Handhabung  und  Ablauf 
schon  ausführlich  abgehan¬ 
delt  wurde.  (Dieter  Chocko) 


69 


Ausgabe  5/Mai  1984 


CD  P- 


Programm-Datei 


0  * 

|  BEM*D»f '^83.****, 

4  rEM****  '  poKE646 

5  pOKX36879,3 

8  REH**  MEN^47* 

|  pRXMTCHB*<‘47> 

_M» 


^^  =  =  =S  =  = 


a=B0QR^-^TE1! 


—  —  —>»  prO0RM*-'®*Vi>- 

n  5‘<S';:S 

sr.\ 

14  *■ 

15  1 

16  GET3*  „^,i33>THEH24 

17  lP^=CHptcl3^>THEN105 

ig  iFft*=CHK* 

20  gotoi© 

E  riEM-"^ssssrB1T«  u*bten 

f,  PR  INT  '  Ü®®®S»W  +CHR* 1  137  1 

e7  0PENe,8,15„+cHR,ca,+CHR*  - 

f9 

-  Ä--— G0SÜB 

32 

33 


\  \ 


Listing  zu  »Relative 
Programm-Datei« 


33  '*  noTFNElM6BB£* 

34  BE^S®Wa“;U1* 

35  lHP  t  o7 

36  Ul *=LEP  5  0-- GOTO  13? 

Eb  i^:*SST10  , 

3S  02*=UEF  *  0: g0T0 183 

40  POKE3®®®j^^.*U3* 

41  lNPU  ^<Lj3$/ll> 

43  ^0‘-GOTOl3l 

43  POKE3804?'®,  ;U4$ 

44  ^üTÄl5,i3> 

45  Ü4*-^F  *  0-GOTO134 

47  :INPU{E^7u5i'5, 

48  U5*=UEF  g0-t0135 

49  PWE38tI^-ü6» 

50  INPU  J^^ue*,!3’ 

'  51  Ä>'e:80T° 

52  p0K£ 

54  U7*=L^P  *  0. GOTO  13? 

I  5 ’S” ^ 

I  SüSnSÄSSS«'- 

■  «g  INPUT  1» 


24 
3S 
68 
87 
105  ■ 
126- 
134- 
147 
163 


10-  21 
32 
65 
'  84 
-  102 
123 
131 
144 
160 


--  183 
1&6  -  200 
203  -  225 

228  -  231 
234  -243 


Jodierung 

SSÖÄr-- 

psss- 
“Sssssr 

Eriche  für  fin*f^^en) 

Ausgaberoutnf  eJTlas]ce 

stenbeiegu  +  Sc*uiftbü<i  F2/f7 
T°nroutine  +  r  ••  7 

i=^öBaasar 


+  Ta- 
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VC  20  +  8  KByte 


Programm-Datei 


ff  f3*=LEFT*<U9,  I 

« 

ff  fu*=LE^*7u5?^B"''uu* 

|g  fOKE3835a,0 

Ge  * 

REM**T  .CPUB 

68  S=41a7:'sffff  FT** 

POKES+5  47 :  pniffro  ^ ' 7 * G0SUB22g 
ff  POKES  +S ;  f 1  +S : GOSUbIII 

”  r°KEs +7  'ss  ■•  pokEss  ;u 7;  ?°*^ 
's  S  TASTE"  ** 

Öl0  IF^CHR^!a3}THENl0O 


8£ 

83 

84 
35 


88  REM»SPeiCHERN% 

88  -  «-L EN<U,„  , 

80  f*=f*+U3*+LEFT^<<|f'll-LEN <0^ 
z*-2*+U4#+LEFT*fv«'  *  1  ~LEN<U3:*>  , 

9£  f|=Z*+U3*+L-EFT$(||'i3,'LE:N':8‘>*>i 

33  ff =Z*+U8*+1-EFT*(L'fB  ENCU5S)  » 

94  ff'2*+U7*+LE:FTs<|*'.f  LEN,;ue*> ) 

95  5*=Z*HJ8*+LEFT  **'  ®'LeN(U7*,  , 

96  7f '2*+U3*+LEFT*cX*  ' ,  f  ~LEN<U8t)  ) 
q,  f*'Z*+UU*+LEFT*cx*'1S'LENCU8*^ 

ff  fORB=0tO3.re  .ff'  LENcuu$>> 

101  G0T09  E2 

10S  : 

103  .■ 

106  0PEN2,8^5  PR0GR^M-DAte 

107  PRlNTCHR^fi  +CHR^C137> 

-  sssss-p;--«-™ 

■15  US*.MID,"*'f»-13» 

116  U8*=MI0S<ff'ff'S:> 

J17  U7*.M, 

120 


Listing  zu  »Relative 

Programm-Datei 

(Fortsetzung) 
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VC  20  +  8  KByte 


Listing  zu  »Relative 

Programm-Datei« 

(Fortsetzung) 


121  CU0SE1'-CL.0SE2 

\zz  GOSUBS03 
123  5 

%  rem*benoepn* 

126  GOSUB105  .+CHRSa3?) 

1E7  G0SUB163  06RftMM-DBTEI,E, 

1E8  openi,8,2' 

1S9  OFENS,8'13 
130  G0T087 

«34  PRINT  wJ  *  aP00: ' 6  _oö  goiNElXTRB 

138  FW^"®TO4SS9tTEpS,iP3'eBfl'93älfKl«^PO8E360'’'eS 

S5 

138  POKE409' 3  ,  04  :p0|<ERB  .  nextrp 

•  39  FORR8'41® 3T04E9E  ■■  P8tlEE®  'L :  NEXTRF 

143  F0RR8=4537 

\le  Um.*SCHR1FT**  a  .  qoSUB2E8 ■■  FQRW|: ^l^ll  1 :  ^B 

ä^-"-;;rjr^sss 

issssssss™^ . . . 

S  sri™-“"'™“ 

ETURN 


l6®  nFR  EINGABEN** 

- 

Ä  ^VÄ^'-^-p^38089'0 

166  ^^;^:FORE360-'0 
^  uS^EFT^;,  J ”  „ PORE36 1  «  30 

^Ä^*'-0“3BE41'B 

\ta  ^^•u"*'^Ea8£83 '0 
£  ^^•^;^E3S£85,0 

s  ri^^..---33359'0 

181  iiip®tl;£££^retürn 
182  UUS=LEFT* 

72  2X& 


tiv^4 

■?> 

Y 

Y?> 


v-  j^vx* 
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VC  20  +  8  KByte 


Programm-Datei 


184  : 

■  S  *^;d%*mE** 

196  Fnf  =445 1  T04^e|- pokpp  ' ' 451 1  pOKEF 4f  7ff  '*  '  NE*Tp  *  G0T044 

sCr-^sss^ 

303  REST0Rf°o  RMAUSGftBE  Nflrw  ^ 

204  PRINT »aa^f1 34 : eosue u7  *  pr 

205  P* I  NT  SSE***  '•  R 1 NT 

206  prinT«^22S?,,;U3$ 

207  PRINT- j^Sf*ÄÄa";U^ 

s  ™rS^'-u" 

;■  »SS 

f12  PRlNT-»wlL*£f 

>  *  UU* 

s  1  -379  19  ipnicc 


'*Ui* 


Z°****e£!™EsXa  '^*®S^7^!Äe 

S? t"sten  ** 

ffil  133 ATHENS 

“J  eoross,  R*(  1365  ™ENQOSUes30  !Q0T0  la? 

886  : 

227  REM»*  Ton 
988  P0KE36878  is-o 

sSir»— 

sSsf  -MM-~ 

p39  DFJT880  SP%f^2'84'eS'e9,70  69  _a 

Spsssssss»”-*«" 


Listing  zu  »Relative 

Programm-Datei» 

(Schluß) 
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ifcii*  73 


Sei  W“*“  *r6 

sssgr 

gS*  »***£ 

t  S*  *T 

*  »Ä» 

xudtuckcfl* 

in  'lerttn«  lMg. 

SSV  Ä* 

™tt  *»  "*  de" 

«"? -?£,  darf. 


sno® 

'Tin  die  ddu«-  1Q00 

lafik  m.f8xX8  =  64Pun»e 
öoltsaiieBX0  eine  fui 
1  zelte9rÄi^licHe 
SÄuwandeta- 


Diese  Hardcopy* 
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VC  1526 
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Hardcopy 
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Wo  gibt’s  denn  das?  Pacman  für  die  Grundversion  des 


Nach  dem  Start  des  Pro¬ 
gramms  (siehe  Listing) 
erscheint  die  Frage  nach 
der  Steuerung.  Gibt  man  »J« 
ein,  so  spielt  man  mit  Joy¬ 
stick,  gibt  man  »N«  ein,  mit 
Tastatur,  Dabei  bedeuten 
die  Tasten  »,«  nach  links  ».« 
nach  rechts,  »J«  nach  oben 
und  »M«  nach  unten.  Danach 
kommt  die  Frage  nach  dem 
Level  (Schwierigkeitsgrad). 
Geben  Sie  zunächst  am  be¬ 
sten  eine » 1 «  ein.  Es  erscheint 
das  Labyrinth  mit  Punkten, 
Herzen,  dem  »Schmätzer« 
und  dem  Monster.  Die  Posi¬ 
tion  des  Schmatzers  und  die 
des  Monsters  sind  zufällig. 
Der  Schmätzer  hat  den 
Mund  abwechselnd  offen 
und  zu  (Kaubewegung).  Das 
Spiel  beginnt  bei  Joystick¬ 
steuerung  mit  Bewegung 
des  Knüppels  in  eine  belie¬ 
bige  Richtung,  bei  Tastatur¬ 
steuerung  mit  Betätigung  ei¬ 
ner  beliebigen  Taste.  Der 
Schmätzer  hinterläßt  beim 
Laufen  eine  unsichtbare 
Spur.  Das  Monster  fährt  zu¬ 
nächst  nach  Zufa^Uch  das 
Labyrinth;  es  läßt  alle  Punk¬ 
te  unberührt.  Trifft  das  Mon¬ 
ster  auf  die  Spur  des  Schmat¬ 
zers,  so  beginnt  es,  ihr  —  in 
größerer  Geschwindigkeit 
als  sich  der  Schmätzer  be- 
w^^—  nachzulaufen  was 
si^Wtarch  einen  hohen  Ton 
b«*kbar  macht.  Dabei 
löscht  das  Monster  die  Spur 
wieder.  Das  Monster  geht 
nach  einiger  Zeit  wieder  von 
der  Spur  ab  (ZuMJ|Diese 
Wahrscheinlichkeit^  wird 
aber  von  Runde  zu  Runde 


Während  des  Spiels  be¬ 
deutet  die  Z|^^chts  oben 
die  Rundenzahl,  die  darun¬ 
ter  die  Anzahl  der  Leben  des 
Schmatzers.  Schließt  das 
Monster  seine  Verfolgung 
meinem  tieferen  'lünab,  so 
bJHBIet  dies,  daß  es  einer 
älteren  Spur  nachgelaufen 
war,  die  ein  Endeoefunden 
hat.  Wird  der|  Schmätzer 
vom  Monster  erwischt,  so 
wird  ein  Leben  abgezogen, 
das  Monster  erscheint  an 
ner  zufälligen  Stelle  im  Lalfl^ 
rinth  und  das  Spiel  geht 
durch  Betätigung  einer  Ta¬ 
ste  beziehungsweise  des 
Joysticks  weiter.  Ist  die  Zahl 
der  Leben  gleich  Null,  so  ist 
das  Spiel  zu  Ende.  Ein  neues 
Spiel  kann  mit  Betätigung 
der  Leertaste  begonnen 
werden. 

man  alle  265  Punkte  im 
■Snoyrinth  aufgefressen, 
wird  das  Labyrinth  wieder 
mit  Punkten  gefüllt,  und  man 
kommt  in  die  nächsteRunde. 
Die  Positionen  deHBhmat- 
zers  und  des  Monsters  sind 


(zweistellige  Zahl  rechts 
oben,  siehe  Bildschirmfoto) 
geringer.  Frißt  der  Schmät¬ 
zer  ein  Herz,  so  wird  das 
Monster  an  eine  zufällige  Po¬ 
sition  im  Labyrinth  katapul¬ 
tiert.  Dies  ist  eine  Möglich¬ 
keit,  das  Monster  von  der 
Spur  des  Schmatzers  abzu¬ 
bringen. 


Hi-Score  (höchste  Punktzahl) 

Zur  Eingabe  des  Level?  und  zur  Wahl  der  Steuerung 
Level 


Dienen  zur  Tastatui —  bd 


/stickst euer ung 


PO 
XT 
Xl*l 
P(. ) 


Farbe  des  Monsters 

Dient  zur  Mundbewegung  des  Schmatzers 
Dient  verschiedenen  Zwecken 
Tonadresse  (3ö87ö> 

Anzahl  der  Leben  des  Schmatzers 
Score  (F’unktcahl)  des  Spielers 
Anzahl  der  schon  ge-fresseneri  Punkte 
Nummer  der  Runde 

Entscheidet,  ob  das  Monster  eine  Spur  hat 
Bewegungsrichtung  des  Monsters 
Farbadresse,  zur  Bi 1 dschi rmadresse  addiert 
Position  des  Schmatzers 
Position  des  Monsters 

Zeichen,  auf  dem  sich  das  Monster  befindet 
Zur  Steuerung  des  Schmatzers 
Bewegungsrichtung  des  Schmatzers 
Bildschirmadressen  der  Herzen 


Liste  der  Variablen  von 
»Schmätzer« 


5  REM  SCHMÄTZER  VON  HANNES'  KALTENBACH 
10  H I  =0  =  B I MP <  2 >  -  P < 0 >  =7938  •'  P  <1  >  =7769  =  P< 2>=81 8 1 :  G0T095Ö 
20  F  QRP=  1 TO500  :  NEXT  •'  RETURN  ■ 

30  PQKE36879  ..25  •'  RESTORE  =  FORI =76 16T07679  =  ReHWoKEI  ,P  -  NE)I 
40  0=36876 : MR=3 : SC=0 : PU=Q : P0KE36S69  ,255 : S=50 

50  T = i : PÜKE36878 , 1 5  =  VM= 1  =  I =56  =  F=3Ö720  =  GOSUB350 
60  X=  INT < RND <  1  > *506 > +7680  =  I FPEEK <X)Ö1 74THEN60 
70  GOSUBS60  :  POKEX  ,  I  •  POKEV  ,  58  =  POKEX+F ,  0  •  POKEV+F  ..  2 
80  I  FPEEK <  J >  =640RPEEK  J =  1 26ANBPEEK  <  J+ 1  >  =247T HEN80 
90  I FX-VTHEN700  bbb 

10^P=PEEK<JJ  =  I  FP=flTMENXT =- 1 
1  HBp=£THENXT=1 
120  IFPEEK<J+1>=BTHEHXT=1 
IFP=CTHENXT=22 
IFP=BTHEHXT=-22 
I  FPEEK C  X+XT  >  O230THENXM=XT 
P=PEEKXX+XM> : I FP=230THEH2 1 8 
IFP=aKffiENS28 

I  FP=  WWflENPU=PU+ 1  :  POKEG  ,  240  •'  POKEQ  ,&■! FPU-2SSTHEN6 1 0 


130 

140 

158 

168 

170 

180 


190  POKEX+F , 1 : PÜKE 
200 
210 
220 
230 
248 
250 
260 


22  =  X=X+XM  =  POKEX , I : POKEX+F ,0 ■ IFX-VTHEN690 


1=1+1 -IFI=58TH 
IFT=1THEN260 

POKEQ ,250 • POKEQ , 0 = POKEV ,160: y=V+VM = VM=PEEK} 
IFVM>22THEN900 

I F I  NT  <RNIK  1 > *S >  =  OTHENT= 1  =  VM=-VM 
OOTO90 

P=PEEK<V+Vt1> : IFP=230THEH300 
278  POKEV  ,P0  =  POKEV+F  ,6  :  V=V+VM :  POKEV+F  ,Z POKEV  ,58  '•  PO=P 
288  IFP<45THEHT=8  :  VM=P-22  :  F'O=160 
290  GOTO90 

380  P=INT <RNB<  1  >*4>  •'  IFP=0THENVM=-1 
310  I FP= 1 THENVM= 1 
320  IFP=2THEHVM=22 
330  IFP=3THENVM=-22 
340  GÖTO90 


2 : POKEV+F , Z : POKEV ,58 


76 
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VC  20?  Schmätzer  bietet  sogar  noch  ein  bißchen  mehr. 


wiederum  zufällig  und  das 
Spiel  ist  etwas  schwieriger. 
Nach  der  3.  Runde  bekommt 
man  noch  ein  Extra-Leben, 
von  einer  Tonfolge  beglei¬ 
tet.  Gibt  man  am  Anfang  für 
den  Level  eine  Zahl  zB| 
sehen  2  und  5  ein,  erschei¬ 
nen  weniger  Herzen  auf  dem 
Spielfeld,  wodurch  sich  die 
Abwehr  des  Monsters 
schwieriger  gestaltet.  Ab 
Level  5  wird ’s  noch  mühsa- 
mer,  das  Monster  ist  unsicht¬ 
bar  HB  nur  dann  zu  erken¬ 
nen,  wenn  es  über  Punkte 
läuft.  Das  verlangt  beson¬ 
ders  hohe  Aufmerksamkeit 
und  ist  ein  Nervenktizel,  da 
man  oft  in  Ungewißheit 
schwebt.  Diese  Levels  5  bis  8 
sind  eher  für  den  geübteren 
isler  gedacht, 
och  ein  kleiner  Tip:  Um 
schneller  durch  die  Kurven 
zu  kommen,  kann  man  auch 
schon  vor  einer  Verzwei¬ 
gung  die  entsprechende  Ta¬ 
ste  beziehungsweise  den 
Joystickknüppel  für  die  ge¬ 
wünschte  Richtung  betäti¬ 
gen. 

(Hannes  Kaltenbach) 


- N 


350 
360 
370 
380 
330 
406 
4 1 0 
420 
430 
440 
450 
460 
470 
480 
430 
500 
510 
520 
530 
540 
550 
560 
570 
580 
538 
600 
610 
620 
630 
640 
650 
660 
670 
680 
630 
700 
710 
720 
730 


POKE36865 , 1 56 :  pr  i  nt  '•  nassmmmmmmmMmmmmmsm" . 

PRINT' 

PRINT"«.«.  «.«. 

PRINT" 

PRINT" 

PRINT" 

PR  INT“  *8 m.  .  .SS. SS. £8.  .  .mt 

PRINT1 

print"«.  .  .m.m.m.m. 

PRINT"».«.? 

PRINT"«.  .  .«.».«.».» _ 

päs .m.m. . . « .».  .».s*s. » . m" . 
piWffff » .  m . . . m . m . » . » . ». m . $ 

PRINT"«.«.,«.« - 

PRINT' 

PRINT"«.« . «.Kt.  SK.  MS.  :W ; 

print"«.  m  ' .  4.’  .».m.m . »■ ;  Listing  des  Basicprogramms  »Schmätzer« 

PRiHT"».« . s . für  die  Grundversion  des  VC  20 

PR  INI 

PRINT"«..J«3*E 
PR  INT"  «.««Kl 
PRINT"» . 

PR I NT :  P0KE8185  ..£30  ;  POKE38905  ,6 

POKE7700 , 1  NT < S/500  5  +  176  =  POKE770 1 , 3/50- 1 0*PEEK < 77005  + 1 936 : IFL= 1 THEN600 

FÜRP=0TOL— 2  ••  P0KEPCP5  .-160  :  HEXT 

PO  KE 7767  ,t1R+ 176  =  P0KE36865  ,3S  •  RETURN 

POKEX ,  1 60jX=X+Xri :  POKEX  - 1 

SC=SC-i-PiaBHH3  :  FORX=  1 T06 ;  POKEQ  .240  =  FORP=1TO70  =  HEXT :  POKEQ  ..0  :  FORF'=1TO30  -  NEXTP  .X 
GOSUB20  WW.36377  ..  130  :  X=15  •  POKEV+F™^— 

FORI=59T063  '■  POKEV  ..  I  =  P0KE3687S  .X  •  x4BHfORP=1TO100  =  NEXTP  .•  I  =  POKEV  .160 
POKE36877 . 0  =  P0KE36S78  .■  1 5 

PR  I  NT  "äflPUNKTE  -  "  SC  =  I FSO 1 50THEH6S6  ■■ 

GOSUB20  :  FORX=  1  TO 6  :  FOR 1  =  1 90T0240  :  POKEQ  ..  I  :  HEXT  =  POKEQ  ..  0  •  HEXT  '  MR=MR+ 1  ■'  GOSUB6Q0 
F  O  R  P = 1 T O 3 0 0 0 : HEXT : S=S+50 : GOTO50 
I F  P  0=  1 7  4  T  H  E  N  P  U= P  U  + 1 

POKEX  ..58  :  PÜKEX+F  ..2  :  F0RP-245TQ 1 30STEP- 1  =  P0KE36S74  ,.P  :  HEXT  :  P0KE36S74  ..0  =  POKEX  ..56 
FÜR I-59T063' POKEX. I  :  FORP=  1  TO  1 OO  -  NEXTP  .  I  :  POKEX.  160:  I=56-T=l  WM=1 
MR=MR-1 ; GOSUB6Ö© : IFMR=0THEN760 
GOSUB20 = G0SUB28 - OOSUB860 : POKEX . 56 


E76S0+X+;; 


,.  1 60  -  NEXTS 
“  "TOB <441 


,X :  SC-SC+Pl 
1  PUNKTE 


740  I FPU=265THEN620 
750i  GGTO80 

760  forx=iSBM  forv=0Tü 

770  PR  INT  *S3S5f  I  ELENDE  .  "  TAB  C 
■  •  "SCTflB  <595  "SLEER— 3"  .! 

780  I FSOH I THENH I  =80 

730  PR I NTTRB < 66 5  " I -SCORE  :  "HI TRB < 8 1  5  " SH' ASTE  " 

800  I FPEEK <  1 97 5  O32THEN8O0 
8 1 0  PÜKE36S69  .240 : POKE J+3 . 255 : GOTO950 

826  POKEX+F . 1 : POKEX .XM+22 = X=X+XM  =  POKEX . I : POKEX+F .0 : POKEV+F  .7 
83©  POKEQ  .230  ■  P0KE36876  ..0  :  T=1  ■  GOSUB20  :  POKEV+F  .2 
840  POKEV . PO : GOSUB360 
850  GO.SUB20  :  GOTO90 

860  F'=  I NT  < EnHHBUpo >  + 1  :  V=  I  NT  < RNB <  1 5 *2 15  +  1=  V= ?680+P+22*V 
870  PO=PEEK<Y5 = IFPO-230ORX-YTHEN860 

SSO  POKEV  . 58  '  POKEV+F  .2=1  FF'O<45THENT=0  •  VM-PÖ- 22  :  PO- 1 68 
890  RETURN 

900  POKEQ  .244  :  P0KE36876 .0  :  T=1  '•  PO-VM+22 
910  GOT 0300 

920  DAT A36  . 24  . 60  ..60  . 36 . 60  . 0  . 0  .•  36  . 24  .  36  ..  66  .  3©  .  66  . 60 . 8  . 60 . 1 26  . 
219.102.126.66.90 

33S  BflTfl  1 26 . 36  . 24 . 52  . 28 .36  ,.60.0  . 0  . 36 . 24  . 52  .28  . 32  .. 60  .0 . @ 

948  DRTA36 . 8 . 52 . 28 . 32 . 44 .  iffft . 8 . 36 . © .0.8 .0 . 0 . 4 . 0 . 32 . 0 . 0 . 0 
.0.0 

950  P0KE36879 . 27  :  PR  I NT " rKMBCHMRTZER "  :  PRINT'' - " 

960  PR  INT  "VON  HANNES  KALTENBACH PR  I  Nlfl^BEL?  <1-35 

970  GETAS : L=VAL<A$5 = IFL<1ÖRL>8THEN970 

988  PR I NTfi$ : PR INT" SJJOVST I CK?  < J/N 5  " j 

990  GETAS  •  IFASO"  J"  AHDASO"  H "  THEN990 

1000  -Bk  ...  “AS  •  J— 197 :  A=29  :  B=37  :  C=36  :  Il=20 

'  i  01 8  I  Ffi»=  "  J  "  THENJ—37 151  :  POKE  J+3 . 1 27  :  A=  1 1 8  =  B=  1 1 9  '  :  D=  1 22 

1020  2=2 : IFL>4THENL— L-4 : 2=1 
1030  GOT 030 
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Zeichnen 

Es  erscheint  eine  kurze  Be¬ 
schreibung  der  Möglichkei¬ 
ten  während  des  Zeichen¬ 
vorgangs. 

fl  —  Das  Programm  kehrt 
zum  Menü  zurück  (damit  ist 
das  gerade  Gezeichnete 
nicht  verloren;  es  kann  je¬ 
derzeit  durch  »Wiederho¬ 
len«  zurückgerufen  wer¬ 
den). 

f3  +  f5  —  Mit  diesen  bei¬ 
den  Funktionstasten  ist  es 
möglich,  eine  Zeichenrouti¬ 
ne  zu  erstellen  und  diese 
später  an  jeder  beliebigen 
Stelle  des  Bildschirms  ab¬ 
zurufen. 


Es  folgt  eine  kleine  Anlei¬ 
tung  zum  Arbeiten  mit 
der  »Joystick-Grafik«. 

*  Computer  einschalten 
*  Vorprogramm  zur  Spei¬ 
cherverschiebung  einge¬ 
ben: 

POKE44,34:POKE8704,0: 

NEW 

*  Adresse  37151  auf  Inhalt 
überprüfen:  Falls  dieser 
nicht  126  ist,  Computer  kurz 
aus  und  wieder  anschalten, 
da  sonst  die  Joystickfunktion 
beeinträchtigt  ist. 

*  Programm  laden/starten 
*  Nach  kurzer  Pause  er¬ 
scheint  das  Menü.  Es  gibt  fol¬ 
gende  Möglichkeiten: 


Solche  Bilder  lassen  sich  mittels 
Joystick-Grafik  auf  komfortable  Art 
und  Weise  erzeugen 


Ausgabe  5/Mai  1984 


4608-5115 

Maschinenprogramm 

5120-8159 

Bildschirmaufbau /Speicherplatz  für  hochauflö¬ 
sende  Grafik 

m. 

8200-8699 

Speicherplatz  für  Zeichenroutine  (beliebig  er¬ 
weiterbar) 

8704- 

Basicprogramm 

Speicherbelegung  (dezimal) 

f3  —  Drücken,  gewünschte 
Routine  .zeichnen,  wiederum 
f3  drücken .  An  jeder  beliebi¬ 
gen  Stelle  mit  fS  abrufen.  Die 
Routine  »verschwindet«  bei 
Erstellung  einer  neuen  oder 
bei  Unterbrechung  des  Pro¬ 
grammablaufs,  nicht  aber 
bei  Rückkehr  zum  Menü. 


Funktionstasten 

steuern 


f7  —  Durch  Druck  auf  die¬ 
se  Funktionstaste  wird  ein 
durch  Linien  oder  durch  den 
Rand  begrenzter  Raum  aus¬ 
gefüllt.  Diese  Funktion  ar¬ 
beitet  von  links  nach  rechts. 
Man  muß  sich  zum  Ausfüllen 
eines  Raumes  also  immer 
ganz  links  in  diesen  Raum 
stell®!-!  und  dann  f7  betäti¬ 
gen,  um  ihn  ganz  auszufül¬ 
len.  Diese  Prozedur  sowie 
die  der  Routinenerstellung 


i  poke36879,25 

3  REM#*##*:*********#**#*  GRAFIK  ****  BY  P .  BETHGE  ****  2330  E'FOER 

DE  * 

4  REM*******************  VORPROGRAMM  ****  POKE44,34  ****  POKE8704  ,0: 

NEW  * 

5  PRINT"  afflMBMBB* ****************  ******  GRAFIK  **  BY  F ID IBUS-SOFTWAR 

E*M? 

6  print"#****************#****''  Listing  des  Grafikprogramms 

3  print " aaami-B i tte  warten-" 

100  REM*******#****#*****#OATEN  MASCH-PR. ************************ 

1  10  FORT =0TO  137  *  READA  :  POKE4608+T ,  A  •  NEXTT 

120  DATA  169, 16, 14 1 ,0 , 144 , 169,46,  14  1  ,  1 , 144, 169,0, 14  1 ,2, 144, 169,21 , 14  1  ,3,  144 

122  DATA  163,0, 133,253, 163, 16, 133 ,254 ,160,0,162,0, 165,240, 157,0,143,138,  145,253, 
24 

123  DATA  152, 105,13, 168,201 , 190,208 ,10, 160,0,230,253, 165,253,201 , 13,240,4,232,76 
,32,18 

124  DATA  96 

130  DATA  163,0, 133,253, 1 69 , 20 , 1 33 , 254 , 1 62 ,12,160,0,163,0, 1 45 , 253 , 1 36  ,208  , 243 ,202 
,240,7 

131  DATA  160,0,230 ,254 ,76 , 76 , 18 , 1 69 ,205 , 1 4 1 ,5 , 1 44 , 1 63 , 19 , 1 4 1 , 2 , 1 44 

133  DATA  163,255, 133,253,  163, 19,133,254, 160,160, 163,128,145,253, 136  ,203,249 

134  DATA  169,63, 133,253 ,169,31, 133,254 ,160,160,169,1, 145,253, 136 ,208,249 ,96 
1 50  FORT =0TO2 15 : READA : POKE4750+T , A : NEXTT 

160  DATA  163, 123, 133,249,  169,160, 133,253, 163,25, 133,254,169,0, 133, 163 

161  DATA  163,1,133,250,160,20 

164  DATA  169, 127, 14  1,34,145,173,32,145,41,128,133,251, 163,255, 14 1  ,34 , 145 

165  DATA  173,31 , 145,41 ,28  ,24, 101 ,25  1 , 133,251 , 173,31 , 145,4  1  ,32, 133,252 

166  DATA  132, 165, 165,243, 133, 168,  165  ,253, 133,167, 165,254,133, 168 

167  DATA  165,251 ,201, 152,203,3,32,138,19,201  ,24,208,6,32,133, 13,32,140,19 

163  DATA  201  ,28,208,3,32, 140,19,201  ,20,208,6,32, 1 40 , 1 9 ,32 , 1 36 , 19  ,20  1  , 148,203,3 
163  DATA  32,136,19,201, 132,203,6,32, 136,13,32,173,19,201 ,140,203 ,3,32, 173, 13 
170  DATA  201,136,200,6,32,173,19,32,138,13 

17  1  DATA  165,252,20 1  ,0 ,203 , 23 , 165 ,250,20 1 ,0,208,6, 163,1, 133,250,203 ,4 , 168,0 ,133, 
250 

172  DATA  173,31,145,201,94,240,249 

173  DATA  165,250,201 , 1 ,208, 1 3 , 132 , 164 , 164 , 165 ,56 , 177 , 167,229, 166,145,167,164,164 

174  DATA  177,253,5,243,145,253 

175  DATA  165, 137,201  ,0,208,2,230, 163,20  1 ,56,208,2, 138,163,20  1 ,63,203,3,76,206, 19 
,96 


erfordert  einige  Übung, 
doch  lassen  sich  später  gute 
Effekte  erzielen. 

1  +  2  —  Mit  diesen  Tasten 
ist  die  Geschwindigkeit  des 
Zeichenpunktes  zu  variie¬ 
ren.  Um  schwierigere  Figu¬ 
ren  zu  malen  ist  es  ratsam,  ei¬ 
ne  langsame  Geschwindig¬ 
keit  zu  wählen,  da  dann  eine 
größere  Genauigkeit  erzielt 
werden  kann.  Die  Tasten 
sind  nur  bei  Stillstand  des 
Punktes  zu  betätigen. 

Gezeichnet  wird  mit  dem 
Joystick.  Dabei  ist  unbedingt 
darauf  zu  achten,  daß  der 
Rand  rechts  und  links  (durch 
Striche  markiert)  nicht  über¬ 
schritten  wird  —  sonst  ist  es 
möglich,  daß  das  Maschi¬ 
nenprogramm  versehent¬ 
lich  gelöscht  wird.  Der  Feu¬ 
erknopf  dient  zum  An-  und 
Ausschalten  der  Farbe.  Auf 
diese  Einstellung  ist  auch 
beim  Ausfüllen  zu  achten. 
Soll  eine  bereits  gezeichnete 
Linie  wieder  gelöscht  wer¬ 
den,  so  ist  sie  einfach  mit 
dem  ausgeschalteten  Punkt 
nachzuziehen.  Nun  ist  die 
Zeichen-  und  Bildschirmfar¬ 
be  einzugeben.  Beider  Bild¬ 
schirmfarbe  ist  die  Farbta- 
belle  aus  dem  VC-Hand- 
buch  heranzuziehen,  bei  der 
Zeichenfarbe  gelten  die  auf 
den  Farben  stehenden  Zah¬ 
len  vermindert  um  eins.  Jetzt 
wird  der  Bildschirm  umge¬ 
baut,  und  der  Spaß  kann  be¬ 
ginnen. 
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3  D-Grafik 


VC  20  +  8  KByte 
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2. WIEDERHOLEN 


3. BILD  EINSPIELEN" 


FORT-0TOS9 : READA : POKE5000  +T,  A : NEXTT 
□  ATA  200,96 
DATA  136,96 

DATA  165,249,201 , 1 ,240,3,70,249,96 ,169,128,133 ,249 , 165,253,201,96,48,2 ,230,2 
DATO  201,224,208,2,230,254,24, 105,160, 133,253,96 

DATA  165,249 ,201 , 128 ,240 ,3 ,6 ,243 ,96 , 169 , 1 , 133,249,165,253,201, 160, 16 ,2 , 198 ,2 

DATA  201,0,208,2, 198,254,56,233, 160, 133,253,96 
FORT=0TO45 : READA : POKE5070+T , A : NEXTT 

DATA  132, 164,200, 132, 160,240,13, 177,253,5,249,209,253,240,5, 145,253,76,208, 1 
DATA  164,184,136, 1 92  ,255 ,240 , 1 3 , 1 77 ,253 ,5 ,249 ,209 ,253 ,240 ,5 , 145 ,253  ,76 ,228 , 1 
DATA  164,164,32,140,19,96 

REM******  ************ »BAS  I C -PROGRAMM*  *  * 

P0KE36879 ,25 

PR  INT  "BMWI  .ZEICHNEN 
PR  1 NT “  IM?  .BILD  AUFNEHMEN 
GETAS 

IFA*=" 1 “ THEN400 
IFA*=“2"THEN550 
IFA*= “3 “THEN600 
IFA*="4 " THEN500 
GOTO 330 

REM* »ZEICHNEN**** 

PR  INT  "MM- MF  1"  ZURUECK 


I-SF3«  ROUTINE  ERSTELLEN«- *=5*  ROUTINE  ABFRAG 

PR  INT  "  -3F7S  flUSFUELLENMlHMH-ZE  ICHNEN  MIT  JOYSTI CK -FEUERKNOPF  AN/AUS  '  " 
PRINT" -SU  LANGSAMER«»!»!»»»!- ZP*  SCHNELLER" 

PR  INT" -RAND  NICHT  UEBER  SCHREITEN!" 

INPUT  "ffl-ZE  ICHENFARBE  0IUI"  ;  A  :  POKE240  ,A 
1  NPD  T  "  -SCH  I RMF  ARBE  £511*11"  !  A 
POKE 36373, A 
SYS  <  4608  )  :  SYS -r  4672  > 

SYS <4750) 

SYS < 4772 > 

FDRT^OTOPEEK ( 163  > : NEXTT 
SETAS 

IFA*="B"THEN430 
IFA$= "  ™"  THEN700 
1FA*=  “  |J"  THEN720 
GOTO 440 

PR  INT  "kJ"  :  POK.E36363 , 1 32  :  P0KE36S67 , 46  :  POKE368G6 , 22  :  P0KE36864 , 12  :  P0KE36S65  , 

GOTO 300 

REM*  *B 1 LD  AUFM.** 

PR  INT "MM* 

OPEN 1 ,1,1, "BILD" 

FORT  =5  120T03 159 
8=PEEK(T1 
PRINTttl ,B 
NEXTT 
©LOSE  1 
GOTO300 

REM* »WIEDERHOL*** 

I  MPUT  "  ag-ZE  I  CHENF  ARBE  OIUI"  !  A  :  POKE240  ,  A 
INPUT  "-SCHIRMFARBE  25TOII"  :  A 
POKE 36873  ,A 

SYS  <4608)  :F'OKE368B9,205:  POKE 388 66 ,19:  GOT0435 
REM* »BILD  E 1 NSP . * 

1  NPUT  "S31-ZE  I  CHENF  ARBE  OIHi"  ;  A  :  POKE240  ,  A 
INPUT" -SCHIRMFARBE  251*111"  ;  A 
OPEN  1  ,1,0, "BILD" 

POKE 3687 S , A : SYS  <4608 ) : SYS  <4672  > 

F0RT=5129T08139 
INPUT» 1 , B 
POKET ,B 


Wiederholen 

Die  Zeichen-  und  Bild¬ 
schirmfarbe  ist,  wie  oben  be¬ 
schrieben,  festzulegen;  dar¬ 
aufhin  erscheint  das  eben 
Gezeichnete,  und  ebenfalls 
wieder  der  Zeichenpunkt  in 
der  oberen  Hälfte  des  Bild¬ 
schirms,  so  daß  weiter  ge¬ 
zeichnet  werden  kann.  Da¬ 
mit  ist  es  möglich,  eine  Zeich¬ 
nung  in  beliebigen  Farb- 
kombinationen  zu  betrach¬ 
ten  und  währenddessen 
noch  zu  ändern.  Der  Bild¬ 
schirminhalt  geht  auch  bei 
Programmunterbrechung 
nicht  verloren.  Es  kann  ein¬ 
fach  wieder  mit  RUN  gestar¬ 
tet  werden,  und  das  Ge¬ 
zeichnete  erscheint  durch 
Druck  auf  die  2  wieder.  Bei 
Wahl  des  Menüpunktes 
»Zeichnen«  geht  der  alte 
Bildschirminhalt  jedoch  ver¬ 
loren. 

Bild  einspielen 

Bei  Druck  auf  die  Taste  3 
kann  ein  auf  Band  gespei¬ 
chertes  Bild  in  den  Compu¬ 
ter  geladen  werden: 

—  Band  auf  entsprechende 
Position  bringen 

—  Farbkombination  wählen 

—  »Play«  drücken. 

Bild  aufnehmen 

Natürlich  kann  ein  eben 
gezeichnetes  Bild  auch  auf 
Band  gespeichert  werden: 

—  Band  auf  leere  Bandstelle 
spulen 

—  Die  4  drücken 

—  »Record«  und  »Play«  drük- 
ken. 

Leider  dauert  das  Laden 
und  Speichein  der  Dateien 
von  beziehungsweise  auf 
Kassette  recht  lange.  Die 
entsprechenden  Routinen 
können  jedoch  sehr  einfach 
durch  Ändern  der  Geräte¬ 
nummer  für  ein  Floppy-Disk- 
Laufwerk  umgeschrieben 
werden. 

(Philip  Bethge) 


NEXTT 
CLOSE 1 
60 TO 4 35 

REM*  »SONDERMOEGL* 

REM 

C=0 

FORT=0TO493 
SYS  <4772 ) 

GETA*:  I FA$= "  H"  THEN440 


Listing  des  Grafikprogramms  (Schluß) 


7  13  1 FPEEK  <251 )  =  1 56THEN7 1  1 

714  POKE8£00+T,PEEK<£51 >:C=C+1 

715  FORR=OTOPEEK< 1S3> : NEXTR 

716  NEXTT 

717  GETA* : IFA*< >"-"THEN717 
713  POKE8200+T, 156=GOTO440 
720  REM 

-700  croD-r-  1  TOC 

732  POKEfiS 1 , PEEK < 3200 +T > 

733  SYS <4806) 

735  NEXTT 

736  GOTO440 

74  0  REM**  £  NDE  ****************** 
READY. 


r 


80 
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VC  20 


Supergrafik 


Supergrafik 
ohne  Enweiteningsmodul 

Bekanntlich  benötigt  man  für  den  VC 
20  das  Erweiterungsmodul,  um  hoch¬ 
auflösende  Grafik  darzustellen.  Oie  Auf¬ 
lösung  beträgt  damit  160  mal  160 
Punkte.  Das  abgedruckte  Basicpro- 
gramm  liefert  aber  eine  Auflösung  von 
176  mal  184  Punkten. 


In  den  Zeilen  300  bis  999 
können  Programmteile  für 
die  Bereitstellung  der  X  und 
Y-Koordinaten  eines  Punk¬ 
tes  untergebracht  werden. 
Die  Koordinate  X  darf  Werte 
zwischen  0  und  175,  die 
Koordinate  Y  Werte  zwi¬ 
schen  0  und  183  annehmen. 
Das  abgedruckte  Programm 
generiert  eine  Sinuslinie. 

Nach  Ablauf  des  Pro¬ 
gramms  wartet  der  VC  20 
auf  einen  Tastendruck  und 
schaltet  dann  in  den  Normal- 
Modus  zurück. 

Der  eigentliche  Grafikteil 
steht  im  Unterprogramm  ab 
Zeile  4000.  Zunächst  werden 


aus  X  und  Y  die  Koordinaten 
XS  und  YS  eines  der  506 
Kästchen  errechnet,  danach 
das  anzusprechende  Byte 
BY  und  das  Bit  BI.  Nach  Fest¬ 
stellung  des  zu  verwenden¬ 
den  Bildschirm-Codes  in 
Zeile  4040  wird  der  Inhalt 
der  entsprechenden  Adres¬ 
se  im  Zeichengeneratorbe¬ 
reich  mit  einer  geeignet  ge¬ 
wählten  Zahl  codiert.  Dies 
führt  dann  zur  Entstehung  ei¬ 
nes  Punktes  an  der  Stelle  X, 
Y.  Zusätzlichen  Erweiterun¬ 
gen  des  Programms  setzt  nur 
der  Speicher  Grenzen. 

(Rudolf  Dörr) 


Nun  eine  knappe  Erläute¬ 
rung  des  Programms: 

Die  Idee  besteht  darin, 
den  Zugriff  des  Zeichenge¬ 
nerators  in  den  freien  RAM- 
Bereich  zu  legen.  Immer 
wenn  in  eines  der  22  x  23  = 
506  Kästchen  ein  erster 
Punkt  gesetzt  werden  soll, 
wird  dieses  Kästchen  mit  ei¬ 
nem  neuen  Bildschirm-Code 
belegt.  Damit  können  256 
der  506  Kästchen  angespro¬ 
chen  werden,  was  wohl  für 
die  allermeisten  Anwendun¬ 
gen  ausreicht,  insbesondere 
für  das  Erstellen  von  Funk¬ 
tionsgrafen.  In  Zeile  10  wird 
der  neue  Bereich  für  die  Zei¬ 
chen  (5120  bis  7167)  vor  Ba¬ 
sic  geschützt.  Die  DATA- 
Zeilen  20  und  22  beinhalten 
ein  kleines  Maschinen-Pro- 
gramm,  das  den  Bereich  von 
5 1 20  bis  7 1 67  vor  jedem  Pro¬ 
grammlauf  löscht  (eine 
Basic-Routme  würde  dazu  lä¬ 
stige  Sekunden  benötigen). 
In  Zeile  135  wird  nun  der  Zu¬ 
griff  des  Zeichengenerators 
auf  den  freien  RAM-Bereich 
bewerkstelligt. 


10  P0KE55  .•  0  :  P0KE56  ,  20 

20  DRTR160,20, 140,43,28, 163-0, 162,255, 157,0,0,202,208,250, 140,52,23, 141,0,0,200 
22  BRTR192, 28,208,232,96 
40  F0R I =7200TO7226 : RERBZ = POKE I , Z : NEXT 
80  PRINT " ÄSUPERGRfiPH I K  RUF  VC  20" 

85  PR I NT " ÜlSUt »MB<=X<=  1 75  "■  PR I  NT "  ,  =V ,  =  1 83  " 

30  PR  I  NT 11 MSFUNKTI ON  IN  DEN  ZEILEN"  :  PR  INT"  71300-393  DEFINIEREN" 

92  PR I NT ; PR I NT " COP VR I GHT  R. DOERR" : PR INT "DUNZENHAUSEN,  DEZ. 83" 

93  PRINT"KWTflSTE  DRUECKEN" 

95  GETV$ : IFV$=" "THEN  35 
110  SVS7200 

132  PRINT"«" 

135  P0KE36863, 253 
208  BC=-1 

300  REM  WAHL  V.XU.V 

302  F0RX=0TO175 

310  V=3 1  #S  INC  2*tT*XX  1 75)  +3 1 

330  GÜ3UB4000 

400  HEXT 

1000  GETR$ : IFR$=" "THEN1000 
1010  P0KE36869, 240 
1028  END 
1030  : 

4000  REM  UP  PUNKT  SETZEN 

4005  V=  1 83- V :  X=  I  NT  < X+ .  5 ) :  Y=  I  NT  (.  Y+ .  5 )  •'  XS=  I  NT  < X/8 )  :  YS=  I  NT  ( V/8 > 

40 1 0  BY=Y-VS*8 • B I =7-X+X3#8 

4020  Z=7680+XS+22#VS:ZF=Z+30720 

4030  I FPEEK <  Z ) «32THENBC+ 1 : POKEZ , BC • POKEZF , 0 

4040  BS=PEEK(Z) 

4050  B=5120+BS*e+BV :P=PEEKCP)  .'P=P0R2TBI 
4060  POKEB, P 
4080  RETURN 

Listing,  um  Grafiken  mit 

RERDY.  176  und  184  Punkten  darzustellen 


mm 
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Die  Fahrbahnbreite  und 
die  Geschwindigkeit  kön¬ 
nen  in  je  fünf  Stufen  (von  »An¬ 
fänger«  bis  »Selbstmörder«) 
gewählt  werden. 

Nach  Spielende  wird  Ihre 
Gesamtpunktzahl,  die  von 
dem  Gewählten  Schwierig¬ 
keitsgrad  und  der  Anzahl  Ih¬ 
rer  »Crashs«  abhängt,  ange¬ 
zeigt. 

Wer  nach  der  Lektüre  die 
ser  Beschreibung  glaubt, 
die  Sache  sei  einfach,  dem 
sei  wärmstens  empfohlen, 
nur  einmal  die  Stufe  für  An¬ 
fänger  auszuprobieren.  (Ein 
kleiner  Trost:  Das  Spiel  hat 
schon  »langjährige«  Autofah¬ 
rer  zur  Verzweiflung  ge¬ 
bracht). 

Eine  interessante  Anwen¬ 
dung  ist.  der  Einsatz  auf  Par  ¬ 
tys  (Vergleich  der  Fahrlei¬ 
stungen  im  nüchternen  und 
im  angetrunkenen  Zustand). 

Jetzt  noch  einiges  zum  Pro¬ 
gramm: 

Zeile  100  bis  130:  SID  für 
»Ci  ash«-Geräusch  vorberei¬ 
ten. 

Zeile  200  bis  270:  Anleitung 
schreiben 

Zeile  300  bis  320:  DATAs  für 
Maschinenprogramm  und 


10  REM  ************************** 

20  REM  ***  FAHR  -  SIMULATOR  *** 

30  REM  ***  BY  O.  BAAKE  1784  *** 

40  REIM  ************************** 

100  REM  TON  VORBEREITEN 
110  S I =54272 : POKES 1+24 ^15 

120  POKESI  +  1 , 248 : POKES I +8 , 6  :  POKES 1+15,9 
130  POKES 1+5, 154: POKES 1+12,3 : POKES 1+13, 8 
200  CL=S : GOSUB6S00 
210  PR I NTCHR*  f 1 42  U : CHR*  < 8 ) 

220  PRINT,’LHU," _ " 

23©  PR I NT , “3  FAHR  ~  SIMULATOR  " 

270  GOSUB5000 

300  IFPEEKC 12800 >=120THEN330 

3  10  C=ü  :  f-URA=  12S00TO  13229  :  READB  :  POKEA  rB  ■  C  =  C+B  :  NEKT 
315  I FC  < >435S7THEHPR I NT "PRUEF SUMMENFEHL ER !  " : STOP 
320  FORA -704TO7SG : READB  *  POKEA  ,  B : NEXT 
330  POKE25 1,1 02 : P0KE883  ^ 8 
340  PRINT: PR  INT” a  WEITER  7  "  : 

350  GOSUBS003 

360  I FXS<  > " J " ANDX3K  > " Y " TH ENS 50 
400  CL=6 : GOSUB6200 

410  PRINT-JL  ***  SCHWIERIGKEITSGRAD  *** 

428  PR  INT  "HS  ap-ASTEn  FUER 


520 

530 

540 


Listing 

»Fahrsimulator« 


3^0 
•PO 

gea 

apn 

430  PR  T  MT11  MBFAHRBAHNBRE  ITE 
430  GOSUB8000 : BR*=X* 

500  BR=70-ASC<X3O  :  IFBR< 1 ORBR >5THEN490 
510  PRINTER* 


430  PR  INT "H 
440  PR INT "B 
450  PR  INT  "H 
460  PRINT"a 
470  PRINT"» 


PR  INT  ”  ^GESCHWINDIGKEIT  a<A-E?E!l  : 

GOSUB6000  :  GE*=X*:  I  FX*=  " £  11 THENGOSUB6400 :  G0T0538 
:  IFGE< lORGE  >5THEN540 

580  PRINTGE* 

570  P0KE252  ,  BR *3  +6  :  P0K.E253  ,  GE  *2 . 5 
580  FORA= 1TO300 : NEKT 
600  REM  ***  VORDERE  ITLING 


Sprites  einPOKEn. 


82  Üd'äj* 
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Geleitet 


REM  ***,  TON 


NE  KT 


6  10  PR  INT "ja" 

620  CR=0 : SY=PEEK (25 1  >  : P0KE881 ,3 

630  SYS  13834 

640  REM  ***  COUNTDOWN 

650  FORA=9TO0STEP-1 

6S0  PR  I  NT  "  ST’  !  A 

670  FQR6  =  1 TO300  :  FflEXT :  NEKT 

688  PRINT ”3  " 

700  REM  ***  START 

7  10  SYS 1230O 

720  IFPEFK  C  S8  1  )  =255THEN  1  000  :  REM  IM  ZIEL. 

730  REM  ***  CRASH 
740  CR  =CR  + 1 

760  81=54272 

770  POKES  1+4,123! POKES I  +  1 1 , 123: POKES H  18,129 
730  FORA  = 1 TO  1 0 : P0KE53294 ,4:B=ltl :PGKE53234, 1  : 
900  FORß=  1  TO  10  :  PR  INTSPC  (  15  >  ”*CRASH*D 
S10  FORA  =  1 TO  120: NEKT 
828  PR  I MTS PC (15)" ä*CRASH  *□ 

830  FORA =1 TO  120: NEKT: NEKT 
S40  PR INTSPC < 15?“  8ö" 

350  POKES I +4,0: POKES Hl  1  ,0 : POKES 1  +  18,0 
360  IFPEEK  <  1 37  >  =46THENGOTO400 
870  : 

880  K  =PEEK  <  S70  >  +5  +BR  *1 .5 
830  P0KE53262 ,K  +3AND255 
30©  PÜKE532S4 , - (K*S  >255 ) # 128 
910  FORA=  1TO2000 : NEKT 
920  GOTO700 
330  : 

1000  REM  ***  SPIELENDE 

1010  PRINT  "Sä”  ,  "ä  SPIEL  BEENDET  “ 

1020  FORA = 1  TO  1500 : NEKT 
1100  REM  ***  AUSWERTUNG 
1110  POKE53263 , 0 
1120  PR  INT  "LJ"  ,  " _ ” 


Zeile  330-  Symbol  für  Fahr- 
bahnrand  und  Fahrbahn- 
Charakteristik  fesüegen 
Zeile  400  bis  080:  Abfragen 
des  Schwierigkeitsgrades 
und  Übergabe  der  Werte 
ans  Maschinenprogramm 
Zeile  600  bis  630:  Vorderer 
tung  (Streckenlange  festle¬ 
gen,  Fahrbahn  und  Fahr¬ 
zeug  zeichnen  etc.) 

640  bis  680.  »Count- 
d< 

Zeile  710  Start  des  Masclu- 
is  Die  Riiok- 
■  zu  Basic  erfolgt  erst  bei 
oder  wenn 
das  Ziel  erreicht  ist. 

Zeile  720:  Fragt  Strecken¬ 
zähler  ab.  ob  Ziel  schon  er¬ 
reicht 

Zeile  730  bis  .920:  Ciash- 
Routme.  erhöht  Crashzähler, 
löst  Crashgeräusch  aus, 
fragt  ©-Tagte  ab.  falls  diese 
gedrückt  ist,  Neustart.  setzt 
Fahrzeug  in  Fahrbahn  mitte 
Zeile  1000  bis  1370:  Auswer 
tung,  Anzeige  der  Gesamt¬ 
punktzahl 

Wichtige  Speicherzellen. 

25  T;  Bildschirmcode  vom 
Fahrbahnrand 
252.  Fahrbahnbreite 
253:  Geschwindigkeit 
880,881  Streckenzähler  low, 


1130  PRINT, “3  RESULTAT:  M" 
1140  IFCRTHENCL=7 : GOSUB6220 
1150  IFCR  > 15THENPR INT"©" ; 
1200  PR  INT "H  FAHRBAHNBREITE 


"  ;  BRS 


Fahr  bahnchar  a  kte  r  istik 
Bemerkung:  Der  Strek- 
kenverlauf  ist  zufällig,  je¬ 
doch  können  verschiedene 
Fahrbahncharaktenstika 
eingestellt  werden.  Drük 
ken  Sie  dazu  bei  der  Abfra¬ 
ge  nach  der  Geschwindig¬ 
keit  die  @-Taste.  Geben  Sie 
danach  eine  Zahl  zwischen  0 
und  9  ein  Niedrige  Zahlen 
bewirken  wenige,  große; 
hohe  Zahlen  viele,  kleine 
Kurven. 

Noch  ein  Hinweis  zur  Pro¬ 
grammeingabe  Lassen  Sie 
zunächst  die  Zeile  300  weg. 
bis  Sie  sicher  sind,  daß  alle 
DAT  As  korrekt  eingegeben 
wurden.  Wie  bei  allen  Pro¬ 
grammen,  die  teilweise  in 
Maschinensprache  ge¬ 
schrieben  sind,  empfiehlt  es 
sich,  das  Programm  vor  dem 
ersten  Lauf  abzuspeichern. 

(Oliver  Baake) 
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1210  PR  INT "H  GESCHWINDIGKEIT:  " ; GE$ 

1220  PR  INT "SM  CRASHES  :  ■  ,*  CR 

1250  P=INT*;<7-GE)t4*C?-BR)  T3/2 tCR > *  1 00 
1260  IFCR  > 15THENP=0 
1 270  I FP  >5E5THENCL  =5 : GOSUB6200 
1280  PRINT  "M'JP;  "FUNKTE  .MUMM" 

1300  REM 

13  10  FORA = 1 TO  1000 : NEXT 
1320  IFP=0THENPR INT"  TROTZDEM”; 

1330  PRINT"  NOCH  EINMAL  7 
1340  GOSUBG000 

1 350  I  FX*=  "N “ THENP0KE54236 , © : CL  =G : GOSUB6200 : PR  I NT : END 
1360  IFX$< >"J "ANDX$< > " Y " THEM 1 340 
1370  CL  =6 : GOSUB6200 : GOTO400 
1380  : 

5000  REM  ***  ANLEITUNG 

5060  PRINT"H  VERSUCHEN  SIE  IHR  FAHRZEUG 
5080  PR  INT  "38  UNFALLFREI  BIS  ZUM  ZIEL  ZU  STEUERN» 

5100  PR  INT "HS  MIT  DEN  BEIDEN  aCRSR«- TASTEN  KOENNEN 
5120  PRINT "H  SIE  NACH  LINKS  ODER  RECHTS  LENKEN. 

5  170  PR  INT  "HS  ©CRASHES  ERGEBEN  MINUSPUNKTE  !  SJ 
5180  RETURN 
6000  REM  GET-ROUT I NE 
60 1 0  POKE53£S3,0 
6020  GETX$:GETXS 
6030  FORA  = 1T04 

6040  PR  I NTM I D$  <  "  \ I  "  ,  A  ,  1  )  ;  " II"  ; 

6050  GETX* 

6060  I  FX$<  >  "  " THENPR  I  NT “  II"  RETURN 
6070  B=ltltl 
6080  NEXT: GOTO6030 
6200  REM  FARBE  SETZEN 
6210  P0KE532S 1 ,CL 
6220  POKE532S0  ,CL 
6230  RETURN 

6400  REM  FAHRBAHNCHARAKTER  UND  -SYMBOL 
6410  PR  I NT "LßäSS  CHARAKTER  <  1 -9 )  ?  "  *  . 

6420  GGSUB6000:X=VAL<XÜO  :  I FX=0THEN6420 
6430  PR  I NTX$ : P0KE883 , <X-1?*10 
6450  PRINT,,aHHBHIHH  SYMBOL  ?  "; 

6460  GOSUB6000 

6470  IFX$=  "ja" THENPR  INTX$;  :  GOTO6460 
6480  IFX$=CHR*< 1 3 > THENPR INT : RETURN 
6430  PR  I NTX$ : SY=PEEK <  1 274 ) 

6500  IFSY=32ORSY=96THEN64S0 
6510  P0KE25 1 , SY 
6520  FQRA= 1TO500 : NEXT : RETURN 
6530  : 

8000  RE  M  M A S  C  H I NE  NP  R  O  G R A MM 
8010  DATA  120, 169,245, 14  1 ,24,208,32, 119,50,163,21,141  ,24,208, 173,31  ,208,32, 1  16 
8020  DATA50 , 14,31 ,203, 176,40,32,67,50,14,31 ,208, 176,32,32,243,50,32,67,50,32 
8030  DATA230 , 50 , 14,31 ,208, 176, 13,32,230,50, 14,31 ,203,176, 10,206, 1 12,3,208, 137 
8040  DATA206, 113,3,18,192,33,96,162,0, 142,0,220, 174, 14,203, 173,1 ,220 
8050  DATA201 , 127,240, 15,201,251 ,203,23, 138,24,105,2,144,14,110, 16,208 
8860  DATA203 , 3 , 133,56,233,2,176,3, 14, 16,203, 141 , 14,208, 162,127,142,0 
8070  DATAE20 , 36 , 0 , 1 62 , BO  ,  44 , 1 62 , 4 , 1 34 , 1 0 1  ,232 ,232 ,232,134,38,134,100,160 
3080  DATA  152, 132,37,160,132,132,33,169,32,160,33,145,33,136,16,251,162,24,24 
8090  DATA  169, 32, 138,80,3, 145,37,200, 145,37,165,251,145,93,136,145,93,152,101 
3100  DATA252, 163,139,32, 145 ,37 ,200 , 1 45 ,37 , 165 ,25 1 ,145,39,136,145,33,202,56,165 
8110  DATA97,233 ,40 , 133,97,176,3,198,88,56, 165,99,233,40, 133,99,176,199,198 
3  120  DATA  100, 165,100,137,101,176,131,201 ,53,203, 11,162,24,183,30,3,157,81 
8130  DATA3 ,202 , 16,247,36 , 164,253, 1 62 , 0 ,202 , 208 , 253 , 136,203,250,76,67,50, 174 
3140  DATA80,3,240,21 ,232,236, 1 14,3,202,176, 14,173,1 15,3,205,4,220, 176,6,36 
S 1 50  DATA38 , 48 , 13, 1 6 , 5 , 44 , 4 ,220 , S0 , 6 , 232 , 236 , 114,3, 144,3,202,48,247, 138,56 
3160  DA TA 237 ,30,3, 142,30,3,133,38,36,163,0, 133,83,234, 141,112,3,163,13,162 
3170  DATA24 , 157,80,3,202,16,250, 165,252,201 ,22,144,4,169,20, 133,252, 168,39 
8180  DATA56,£29,£52, 141,114,3, 1 65 , £5£ , 74 , £4 , 105,15,10,10,10,141, 14, £03, 16£ 

8190  DATA0, 189, 1 , 1 57 , 0 , 2 16 , 157 , 0 , £  1 7 , 1 57 , 0 , £  1 3 , 1 57 , 0 , 2 1 9 , 1 63 , 32 , 1 57 , 0 ,60 , 1 57 
3200  DATA0 ,61 , 157,0, 62, 1 57 , 0 , 63 , £02 , 208 , £25 , 163,216,141, 15, £08, 162,0, 14£, 16 
3210  DATA208 , 142,23,208, 142,27,208, 142 ,28,208, 142,23,203, 142,21 ,208, 160,11 
3220  DATA  140 ,255,7, 140,255,63 ,160,1, 140,46,208,32 ,119,50,32,116,50,162,128 
8230  DATA  142,21 ,203, 162,0,142,31 ,208,96 
8240  : 

3400  REM  SPRITE 

3410  DATA0, 0,0, 0,60 ,0,0, 60, 0,0, 126,0,6,126,36,6, 126,36,7,255,224,6, 126,36,6,126 
8420  DATA36,0,£55 ,0 ,0 ,255,0 ,0 ,255,0, 1 ,255 ,123,1 ,255 , 123 ,23,255, 184 ,23,255, 134 
3430  DATA31 ,255,248,29,255, 134,23,255, 184 ,0,255,0,0, 126,0 

READY. 

***  BEI  STEUERUNG  DURCH  JOYSTICK  FOLGENDE  A ENDE RUNG EN  *** 

315  IFC < >50043THEN. . . 

5100  PR  INT "HQ  MIT  DEM  STEUERKNUEPPEL  KOENNEN 

3040  DATA206, 113,3,16,132,38,36, 162,224, 142,2,220,174, 14,203, 173,1 ,220 
S050  DATA201 ,251  ,240, 15,20  1  ,247,203,23, 133,24,105,2,144,14,110, 16,208 
8060  DATA20S ,3, 138,56,233,2,176,3, 14, 16,208 .141, 14,203, 162,255 ,142,2 


Listing  zu  »Fahrsimulator« 
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100  X  =  700:GOT0500 


kommt 
nicht  sehen  vor, 
daß  man  Teile  eines  um¬ 
fangreichen  Basic-Programms  für  eine 
Neuentwicklung  verwenden  möchte, 
während  andere  Teile  als  überflüssig 
weggeschnitten  werden  sollen. 

Eine  kleine  Routine 
hilft  dabei. 


Exbasic  Level  II  kennt  den  im  VC20-Basic  nicht  vorhande¬ 
nen  Befehl  DELETE,  genauer:  DEL-b,  DELa-b,  DELa-,  wo¬ 
bei  a  und  b  explizit  vorgegebene  Zeilennummern  sind.  Das  _ 

im  folgenden  vorgeschlagene  Basic-Programm  simuliert  T 


500  REM:DELETEX- 

5 1 0  FORI = 0TO45:POKE828 + I,PEEK(50707  +  I):NEXT 
520  POKE845,2:POKE856, 1 

530  FORI  -  0TO20:POKE874  +  I,PEEK(50756  +  I):NEXT 
540  POKE878,95:POKE88 1 ,95:POKE883,95:POKE890, 
96:POKE895,96 

550  POKE2,X/256:X  =  X-256*PEEK(2):POKEl,X 
560  SYS828:CLR 


700  REM* 

701  REM* 

702  REM* 
710  REM* 


Listing  zu 
»DELETE  X« 


den  Befehl  DELa-,  genauer:  DEL  X-,  wobei  der  (gegebenen¬ 
falls  erst  vom  Hauptprogramm  zu  berechnende)  aktuelle 
Wert  von  X  diejenige  Basic-Zeile  angibt,  ab  welcher  (inklu- 
siv)  das  im  Basic-Speicher  befindliche  Programm  gekürzt 
werden  soll.  Wir  beschränken  uns  auf  DEL  X-.  DEL-X  und 
DEL  X-Y  lassen  sich  nach  ähnlichem  Muster  aufbauen  (Ko¬ 
pieren  geeigneter  Teile  des  Interpreters  in  den  Kassetten¬ 
puffer  und  dortiges  Abändern  durch  einige  wenige  POKE- 
Befehle),  erfordern  aber  einen  etwa  doppelt  so  großen  Auf¬ 
wand. 

Zunächst  wird  das  Maschinenprogramm  50707  des  Inter¬ 
preters  in  den  Kassettenpuffer  kopiert.  Dieses  Programm 
50707  berechnet  die  Adresse  derjenigen  Basic-Zeile,  deren 
Zeilennummer  in  20/21  eingegeben  wird,  nennen  wir  sie 
ADRX.  Da  20/2 1  beim  Abarbeiten  des  Programms  durch  die 
Adressenberechnung  bei  SYS828  in  Zeile  560  gestört  wird, 
wird  die  Zeilennummer-Übergabestelle  in  der  50707-Kopie 
nach  1/2  verlegt.  An  die  50707-Kopie  im  Kassettenpuffer 
wird  eine  (anschließend  mit  5  POKE-Befehlen  abgeänderte) 
Kopie  eines  für  unsere  Zwecke  geeigneten  Teilstücks  des 
Maschinenunterprogramms  50756  vom  Interpreters  gelegt. 
Dieses  speichert  in  ADRX  und  ADRX  +  1  den  Wert  0  (Signal 
für  Basic-Programmende)  und  setzt  den  Zeiger  45/46  (Varia¬ 
blenanfang)  auf  ADRX -t-  2.  Das  Gesamtmaschinenprogramm 
im  Kassettenpuffer  wird  per  SYS828  angesprungen,  und  ein 
CLR  sorgt  nach  Rückkehr  in  Basic  für  ein  Angleichen  der 
restlichen  Basic-Zeiger. 

Das  Programm  (das  sich  als  ein  bei  Bedarf  einzugebendes 
oder  bei  Neuentwicklungen  schon  vorsorglich  vorzusehen¬ 
des  Hilfsproyramm  (Utüity)  versteht)  kennt  keine  Fehlermel¬ 
dungen.  Ist  die  Basic-Zeile  X  nicht  vorhanden,  wird  der  Pro¬ 
grammrest  ab  der  nächsten  verfügbaren  auf  X  folgenden 
Basic-Zeile  weggeschnitten.  Selbstverständlich  kann  sich 
das  Hilfsprogramm  auch  selbst  (ganz  oder  teilweise)  stutzen. 
Gibt  es  weder  die  Basic-Zeile  X  noch  eine  Basic-Zeile  mit  hö¬ 
herer  Nummer,  so  bleibt  alles  so,  wie  es  ist. 


Zeile 

100 

510 

520 


540 


X  mit  Zeüennummer  laden,  ab  welcher  das  Ge¬ 
samtprogramm  gekürzt  werden  soll. 

Kopieren  des  Interpreter-Unterprogramms 
50707  in  den  Kassettenpuffer. 

Verlegen  der  Parameter-Eingabestellen  20/21 
in  der  50707-Kopie  nach  1/2,  da  20/21  auch  von 
der  Adressenberechnung  in  SYS828  (Zeile  560) 
benötigt  wird. 

Kopieren  eines  geeigneten  Teilstücks  des 
Interpreter-Unterprogramms  50756  in  den  Kas¬ 
settenpuffer  und 

geeignetes  Abändem,  so  daß  in  die  von  der 
50707-Kopie  in  95/96  gelieferte  Anfangsadresse 
der  Basic-Zeile  X  (oder,  bei  Nichtvorhanden¬ 
sein  von  X,  der  nächstmöglichen  Basic-Zeile), 
sagen  wir  ADRX,  und  in  ÄDRX+ 1  der  Wert  0 
(Basic-Ende)  und  in  45/46  die  Adresse 
ADRX +2  (Variablenanfang)  gelegt  wird. 
Aufspalten  der  in  X  vorgegebenen  Basic- 
Zeilennummer  in  Low  Byte  und  High  Byte  und 
Übergabe  an  1/2. 

Abarbeiten  des  Maschinenprogramms  und  an¬ 
schließendes  Nachstellen  der  restlichen  Basic- 
Zeiger.  Programmbeschreibung  zu  »DELETE  X« 


Das  Beispielsprogramm  schneidet  die  Zeile  700  und  alle 
darauffolgenden  Zeilen  weg.  BeiX  =  690  in  Zeile  100  würde 
es  ebenfalls  Zeile  700  und  alle  folgenden  wegschneiden.  Bei 
X  =  720  würde  alles  so  bleiben,  wie  es  ist.  Bei  X  =  200  bliebe 
nur  die  Zeüe  100  stehen. 

Wird  das  Hilfsprogramm  mehrfach  verwendet,  so  reicht  es 
zur  Ablaufbeschleunigung,  in  Zeile  1 00  nach  550  zu  springen . 
Der  Teil  500  bis  540  generiert  das  Maschinenprogramm  im 
Kassettenpuffer,  welches  natürlich  solange  zur  Verfügung 
steht,  wie  der  Kassettenpuffer  nicht  benötigt  wird  (SAVE. 
LOAD,  VERIFY).  (Fred  Behringer) 
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Wer  schon  mal  ein  Programm  geschrieben  hat,  legt  sicher 
auch  Wert  auf  sein  Copyright.  Dieses  Programm  lenkt  die 
Aufmerksamkeit  des  Betrachters  auf  den  Copyright- 
Vermerk! 

Nun  näheres  zur  Grafik:  Der  Computer  umrahmt  das  Ge¬ 
schriebene  fünf  mal,  so  daß  auf  dem  Bildschirm  später  —  um 
das  Geschriebene  herum  —  ein  Rahmen  entsteht. 

Nun  einige  Erklärungen  zum  Programm: 

Zeile  10: 

Rahmen-  und  Hintergrundfarbe  einstellen 
Zeile  90: 

Bildschirm  löschen 
Zeile  10000: 

POKE  1,81  bedeutet,  daß  auf  dem  Bildschirm  das  Zeichen  mit 
dem  Bildschirmcode  81  (Bällchen)  ausgegeben  wird.  Dieses 


Zeichen  kann  beliebig  verändert  werden  (siehe  649,0: 


Verschiedene  P0KES 

Tastaturfunktionen: 

POKE  650,255: 

Ab  jetzt  haben  alle  Tasten  eine  REPEAT-Funktion,  das  heißt 
Dauer  funktion. 

POKE  650,0: 

Rücksetzung  in  den  Normalzustand 
POKE  650,127: 

Dauerfunktion  der  Cursortasten  ausschalten. 

POKE  657,128: 

Dieser  Befehl  macht  die  Umschaltung  von  der  Tastatur  her 
auf  Groß-  und  Kleinschreibung  unmöglich. 

POKE  788,49: 

Dieser  Befehl  hebt  die  Wirkung  der  STOP-Taste  auf! 


buch  Seite  133). 

Zeile  10000: 

POKE  1  +  54272,2,  wobei  die  2  die  Farbe  angibt. 

Zeile  20000: 

PRINT 1  ’  (BLU)  (HOME)  <2*CRSR  DO  WN( )  6*CRSR  RIGHT) 
Zeile  20010: 

PRINT  "(7*CRSR  RIGHT)(CRSR  DOWN)...." 

Zeile  20020/30/40: 

PRINT  ”(7*CRSR  RIGHT)....” 

Zeile  20050: 
siehe  Zeile  20010. 


10  POKE  53230,2: POKE  53281,14 
90  PR  INT "21" 

100  Pi  1  =983 :  B  1  =  1 024 
110  PI 2  =  1024  =  B2=2064 
120  03=2063:83=2823 
130  A4 =£023:84=383 
200  FÜR  J=1  TO  5 
£10  0  1=01 +4 1 :B1=B 1 +33 

220  FOR  I=PU  TO  B 1  :  GOSUB  10000  :FEXT  I 
230  02=02+33 :B2=B2 -41 

240  FOR  I  =P12  TO  B2  STEP  40:  GOSUB  10000 :  NEXT  I 
250  03=03-41  :B3=B3-3S 

260  FOR  T=P13  TO  B3  STER  - 1  :  GOSUB  10000 :  NEXT  I 
270  04=04  -39  :  B4=B4  +4  1 

2S0  FOR  I  =p)4  TO  B4  STEP  -40:GOSUB  10000:NEXT  I 
300  FEIXT  J 
810  GOTO  20000 

10000  POKE  1,3 1: POKE  1+54272,2 
10010  RETURN 

20010  PRINT  ’’  MHm»'OLKER  MUECKE  ” 

20020  PRINT" tWMMIlM  HPlG  32“ 

20030  PRINT" »»»WB  1  SB  ESCHWE1LER 
20040  PR  I  NT  "  MUMWTEL  ■  :  02403/4230 
20050  PRlNT"IBKUHMEMOVEMBER  1933 
£5000  POKE  198 ,0 : WH  IT  198,1 


Hierbei  gibt  der  Computer  die  gedrückten  Tasten  bezie¬ 
hungsweise  deren  Zeichen  nicht  auf  dem  Bildschirm  aus. 
POKE  649,10: 

Rücksetzung  normal: 


Weitere  POKES: 

POKE  40,1:  POKE  41,8:  POKE  2048,0:  NEW  (RETURN) 
LOAD  (RETURN) 

Mit  Hilfe  dieser  Befehle,  die  im  Direktmodus  eingegeben 
werden  müssen,  kann  man  ein  C-64  Programm  von  einer 
Kassette  in  einem,  CBM-Computer  laden. 

POKE  792,34:  POKE  793,253:  wirkt  wie  ein  RESET  beim 
Drücken  der  Restore-Taste 

PRINT  PEEK(43)  +  PEEK(44)*256:  Mit  dieser  Befehlszeile,  er¬ 
fährt  man  die  aktuelle  Startadresse  Basic.  Wenn  man  die 
Startadresse  verändern  will,  so  muß  man  nur  die  Speicher¬ 
zellen  43  und  44  ändern. 

10  POKE  198,0:WAIT  198,1:  Warten  auf  eine  gedrückte 
Taste. 


Verschiedene  PEEKS: 

PRINT  PFFK  (208):  Gibt  an,  welche  Taste  gedrückt  wurde 
und  zwar  im  Charactermodus  (siehe  Tabelle  im  Handbuch), 
wobei  64  bedeutet,  daß  keine  Taste  gedrückt  wurde. 
PRINT  PEEK  (57):  Dieser  Befehl  zeigt  nach  einer  Programm¬ 
unterbrechung  an,  an  welcher  Zellennummer  das  Pro¬ 
gramm  gestoppt  wurde. 
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PRINT  PEEK  (152):  Gibt  die  Anzahl  der  geöffneten  Dateien 
bekannt. 

PRINT  PEEK  (182):  Dieser  Befehl  gibt  die  Anzahl  der  Zei¬ 
chenlesefehler  aus. 

Verschiedenes: 

PRINT  CHR$  (14):  Umschaltung  auf  Groß-  und  Kleinschrift 
PRINT  CHR$  (142);  Rücksetzung  normal 
SYS  6551 1 :  Dieser  Befehl  schließt  alle  zu  diesem  Zeitpunkt  of¬ 
fenen  Files. 


Wörter  werfen 

Das  nachfolgende  Programm  habe  ich  »Wörter  werfen« 
genannt.  Es  schreibt  zuerst  in  die  erste  Zeile  den  Text  (immer 
nur  1  Zeile)  und  wirft  ihn  dann  buchstabenweise  den  »Bild¬ 
schirm  hinunter«,  so  daß  der  Text  dann  im  unteren  Drittel  des 
Bildschirms  ist,  der  dann  wiederum,  diesmal  aber  als  Gan¬ 
zes  nach  oben  wandert. 

Dabei  kommen  verschiedene  Farbkombinationen  zur  Gel¬ 
tung:  Zuerst  ist  der  Satz  rot,  dann  blau  und  im  letzten  Statdium 
grün.  Dieses  Programm  eignet  sich  wegen  seiner  schönen 
Trickgrafik  sehr  gut  für  Programmbeschreibungen  und  ähn¬ 
liches. 

Der  Text  wird  ab  Zeile  30  in  DATAs  eingetragen.  Die  FOR- 
NEXT-Schleife  in  Zeile  160  muß  auf  die  Anzahl  der  DATAs 
eingestellt  sein  (siehe  Beispiel).  Dabei  bitte  die  Dimensionie¬ 
rung  in  Zeile  30  nicht  vergessen!  Eingabehüfen  (zu  Sonder¬ 
zeichen): 

Zeile  100: 


A$(8)  =  "(RVS  ON)  Volker  Mücke  (RVS  OFF)" 

Zeile  180: 

PRINT  ”(CLR)(RED)'1... 

Zeüe  240: 

B$=  "24*(CRSR  DOWN)” 

Zeile  250: 

PRINT  ”{HOME)"..."(BLU)(40*Space)(2*CRSR  UP)” 

Zeile  260: 

PRINT  "(CLR)(40*Space)" 

(Volker  Mücke) 

1  REM"  COPYRIGHT  BY: 

2  REM 

3  REM"  VOLKER  MUECKE  » 

•1  s 

5  : 

10  BS= 1024 : F  =55296 

20  POKE  53280.1 :P0KE53281,1 

30  D IMASX 9) :fts< 0 >= "DEMOPROGRAMM  :■ 

40  AK  1>="DAS  PROGRAMM  WIRFT  DIE  WOERTER  BUCHST«-” 

50  AK  3>="BENWEISE  AUF  DEN  BILDSCHIRM.” 

60  A*<  3 5  =  "TEXT  KANN  IN  DEN  ZEILEN  AB  40  E INGE GE- “ 

70  AK4)  =  ”BEN  WERDEN. ■ :  AK 5 >=” ANZAHL  DER  ZEILEN  IN  ZEILE  30" 

80  AK  6 )  =  ”D IMENS IONIEREN  !!! 

90  AK7>  =  "C  OPYRIGHT  B  Y:  ” 

100  fl«8)  =  ’  2VOLKER  MUECKE  B" 

110  AK  9  )  =  "  NOVEMBER  1983” 

160  FORI  I =0TOS : A*=ASC  I I > 

170  A=1NT< < 40-LENC ASJ5X2) 

180  PRINT"ta,‘TABC  AJA* 

130  FORI=BS+ATOBS+A*LEN< A*> 

200  X=PEEK< I) 

210  FORN= I +40TO I +40* 15STEP40 
220  POKEN,X : POKEN-BS+F ,6 1POKEN-40 ,32 
230  NEXTN , I 
240  BS»  ' 

245  FOR  K=1S  TO  1STEP-1 

250  PR  INT ”3" SLEFTK  B*,K  >;  "U 

260  F0RJ=1T02:NEXTJ:PR  1MT“U”  |42*SPACE] 

280  FORJ  =  1T03 
290  NEATJ,K,II 
300  GOTO  160 


150  printchr$(  14):rem"  Kle inschr if t 
160  pr int "ä" :rem"  Bildschirm  loeschen 
170  ifsl=lthenKl=0:goto530 
180  : 

ISO  : 

200  an=7:gosub260:gosub460:gosub490:pr int “3" 

210  an  =3 : gosub260 : gosub460 : gosub490 : pr int “3" 

220  : 

230  : 

240  restoreirun 
250  end 

260  f or i  =  ltoan :reada* 

270  -forj  =  ltolen<a.*Jsb*=mid*<a*,j,lJ:printb*J  :gosub3S0 
280  next j  :pr  int :pr  int snext  i 
230  return 
300  : 

310  rem“  Pieps-Ton 


Trick  175 

Das  folgende  Programm  habe  ich  Trick  17  genannt.  Es  er¬ 
weist  sich  besonders  beim  Gestalten  von  Anleitungen  sehr 
hilfreich. 

Das  Programm  schreibt  die  Wörter  buchstabenweise  auf 
den  Bildschirm,  das  heißt,  der  Computer  schreibt  wie  man 
liest,  Buchstabe  für  Buchstabe  und  druckt  nicht  den  ganzen 
Text  auf  einmal  auf  den  Bildschirm. 

Hier  aber  noch  einige  Erklärungen  zum  Umgang  mit  die¬ 
sem  Programm: 

In  den  Zeilen  ab  200,  finden  Sie  in  der  Variablen  AN,  die 
Anzahl  der  Zeilen  wieder,  die  Sie  auf  eine  Bildschirmseite 
haben  wollen.  Sie  können  diese  Variable  beliebig  verän¬ 
dern,  sie  sollte  aber  nicht 
größer  als  10  sein,  da  sonst 
der  Bildschirm  »überläuft«. 

In  den  Zeilen  ab  380  defi¬ 
nieren  Sie  die  einzelnen  Zei¬ 
chen  mit  Hilfe  von  DATAs. 
Die  Anzahl  der  Datas  soll 
gleich  der  Summe  der  Wer¬ 
te  für  AN  sein,  das  heißt  in 
diesem  Fall  ist  die  Summe 
von  AN  =  10  und  wir  haben 
auch  10  DATAs.  Wollen  Sie 
eine  Leerzeile  ausgeben,  so 
können  Sie  einfach  —  wie  im 
Programm  —  zwei  Anfüh¬ 
rungszeichen  hintereinan¬ 
der  setzen. 

Auch  alle  Cursorzeichen, 
das  heißt  (CRSR 
DOWN).. .(RVS  ON)  etc.  kön¬ 
nen  benutzt  werden. 


320  s  i  =54272  '■  -f  1  =s  i  :-f  h  =s  i  +  1  s  *  1  =s  i  +2  :  th  =s  i  +3 :  us  =s  i  +4  :  a=s  i  +5  :  h  =s  i  +6  :  1  =s  i+24 

330  poKel ,15:po«ea,2i:poKeh,0:poKeth,8:poKetl ,0:poKefh,14:poKefl ,162:poKeu,17 

340  f orsd =lto 150: nextsd 

350  poKew  ,0 

360  return 

370  : 

380  rem"  Eintragungen  in  Data's 

390  data"  VolKer  MuecKe","" 

400  data"  Im  Hag  32”,“" 

410  data"  5180  Eschue  i  1  er “ , “ “ 

420  data”  Te 1 02403/4230 ” 

430  data  "SEECEEETv’  iel  Spass  wuenscht:  <  gez  .  )  VolKer  MuecKe  “ 

440  : 

450  rem"  Zeischlei-fe 

460  -forK  =  lto3000:nextK  ireturn 

470  : 

480  rem”  Gewehrschuss 

490  s  i  =54272:* 1  =s  i  :  i h  =s  i  +  1 : 1 1  =s  i  +2  :  t  h  =s  i  +3  :  u  =s  i  +4  :  a=s  i  +5 :  h  =s  l  +6  :  1  =s  1  +24 
500  *orx=15to0step-l 

510  poKel  ,x:poKea,15:poKeh,0:  poKe*h,40:poKefl  ,200:poKeu  ,129 
520  next 

530  poKeu  ,0:poKea,0 
540  return 
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Wenn  Sie  über  eine  reichhaltige  Disket¬ 
tensammlung  verfügen,  ist  sicherlich 
schon  der  Wunsch  aufgetaucht,  den 

Namen  und/oder  die  ID  einer  bestimm¬ 
ten  Diskette  zu  ändern,  ohne  dabei  den 

Disketteninhalt  zu  zerstören.  Wir  zeigen 

Ihnen,  wie  es  geht. 

Mit  dem  DOS-Befehl  »RENAME«  ist  es  möglich,  bestehen¬ 
den  Dateien  einen  neuen  Namen  zu  geben.  Dieser  Be¬ 
fehl  wirkt  leider  nur  auf  Dateiebene  und  nicht  auch  auf  Dis¬ 


kettenebene,  das  heißt,  es  ist  nicht  möglich,  den  Disketten¬ 
namen  und/oder  die  ID  zu  verändern.  Dazu  existiert  der 
DOS-Befehl  »NEW«,  der  den  manchmal  unerwünschten  Ne¬ 
beneffekt  hat,  daß  sämtliche  Programme  und  Dateien  auf 
der  Diskette  gelöscht  werden.  Diesen  Nachteil  behebt  das 
nachfolgend  beschriebene  Programm  (siehe  Listing). 

Mit  diesem  Programm  ist  es  möglich,  den  Namen  Der  hier  interessierende  Teil  —  Diskettenname  und  ID — 
und/oder  die  ID  einer  Diskette  zu  ändern,  ohne  daß  der  Dis-  ist  aufSpur  18,  Sektor  0  gespeichert.  Der  Name  belegt  in  die- 
ketteninhalt  gelöscht  wird.  Es  läuft  auf  jedem  Commodore-  sem^ktor  die  Bytes  144  bis  161,  die  ID  162und  163.Nunstellt 
Computer  mit  minimal  40  Zeichen  pro  Zeile.  Durch  kleine  An-1  sich  cae  Frage,  wie  diese  Byte  geändert  werden  können.  Zu 


derungen  bei  der  Bildschirmausgabe  kann  es  auch  auf  ei¬ 
nem  VC  20  verwendet  werden.  Es  können  alle  Floppy s  mit 
DOS  2A  (also  1540,  1541, 4031,  4040)  verwendet  werden,  wo¬ 
bei  darauf  zu  achten  ist,  daß  sich  bei  Doppelfloppys  die  zu  än¬ 
dernde  Diskette  in  Drive  0  befindet. 


Programmbedienung 


Nachdem  das  Programm  von  Diskette  oder  Kassette  gela¬ 
den  und  mit  RUN  gestartet  wurde,  erscheint  zuerst  die  Fra¬ 
ge,  ob  die  zu  ändernde  Diskette  eingelegt  ist.  I3t  die3  nicht 
der  Fall,  kann  das  Programm  gegebenenfalls  durch  Eingabe 
von  »N«  unterbrochen  und  durch  Drücken  der  RETURN- 
Taste  fortgesetzt  werden.  Als  nächstes  erscheint  der  Name 
und  die  ID  der  eingelegten  Diskette  auf  dem  Bildschirm. 

Beantwortet  man  die  Frage,  ob  der  Name  geändert  wer¬ 
den  soll,  mit  »J«,  besteht  die  Möglichkeit,  den  neuen  Disket¬ 
tennamen  einzugeben.  Falls  der  eingegebene  Name  länger 
als  16  Zeichen  ist,  werden  automatisch  nur  die  ersten  16  ver¬ 
wendet.  Gleiches  gilt  auch  für  die  Eingabe  der  ID,  deren  ma¬ 
ximale  Länge  2  Zeichen  beträgt. 

Danach  wird  die  Diskette  geändert.  Das  Ende  dieses  Vor¬ 
ganges  wird  durch  die  Ausgabe  von  »DISKETTE  GEÄN¬ 
DERT  —  =  —  PROGRAMMENDE«  angezeigt.  Die  Diskette  ist 
nun  mit  dem  neuen  Namen  versehen.  Doch  wie  kam  es  dazu? 
Um  diese  Frage  beantworten  zu  können,  sollte  man  sich  die 
Datenstruktur  auf  der  Diskette  etwas  näher  betrachten. 


diesem  Zwecke  stellt  das  DOS  sogenannte  Direkt-Zugriffs- 
befehle  zur  Verfügung.  Von  besonderer  Bedeutung  sind 
hier: 

BLOCK-READ  (Abkürzung:  U 1):  liest  den  Inhalt  emes  Sektors 
in  den  Pufferspeicher  der  Floppy. 

BLOCK-WRITE  (Abkürzung:  U2):  schreibt  emen  Datenblock 
aus  dem  Pufferspeicher  in  den  angegebenen  Sektor. 
BUFFER-POINTER  (Abkürzung;  B-P):  setzt  einen  Zeiger  auf 
jenes  Byte  im  Pufferspeicher,  auf  das  zugegriffen  werden 
soll. 

Zum  Ändern  des  Namens  geschieht  nun  folgendes: 

1.  Das  Directory  wird  in  den  Pufferspeicher  gelesen. 

2.  Der  alte  Name  wird  durch  den  neuen  ersetzt. 

3.  Die  ID  wird  geändert. 

4.  Das  geänderte  Directory  wird  aus  dem  Pufferspeicher  auf 
die  Diskette  übertragen. 

Zur  Übermittlung  der  Befehle  muß  zuerst  der  Befehlskanal 
mit  OPEN  1,8,15  geöffnet  werden.  Bevor  nun  etwas  in  den 
Pufferspeicher  geladen  werden  kann,  muß  ein  Kanal  für  die¬ 
sen  Puffer  angelegt  werden.  Dies  geschieht  mit  OPEN 
8,8,8,”#”. 

Das  Lesen  des  Directory  erfolgt  mit  PRINT  #  1 , 
”U1:”;8;0;18;0.  Dadurch  wird  ein  Datenblock  von  Laufwerk 
0,  Spur  1 8,  Sektor  0  in  dem  Kanal  8  zugeordneten  Puffer  gele¬ 
sen.  Nun  muß  der  Zeiger  auf  das  erste  Byte  des  Diskettenna¬ 
mens  gesetzt  werden:  PRINT#  1,»B-P«;8;144.  Jetzt  kann  der 
alle  Name  übeisclmeben  weiden.  Dies  geschieht  mit  der 
PRINT#8,DN$,  wobei  in  DN$  der  neue  Diskettenname  ge- 


Die  Diskette  ist  in  35  konzentrische  Spuren  aufgeteilt,  die 
aus  mehreren  Sektoren  bestehen.  Jeder  Sektor  ist  256  Byte 
lang.  Damit  sich  der  Computer  auch  später  noch  zurechtfm- 
det,  wird  ein  Inhaltsverzeichnis  angelegt  (das  sogenannte  DI¬ 
RECTORY).  In  diesem  Inhaltsverzeichnis  befindet  sich  eine 
Liste  der  belegten  und  freien  Sektoren,  der  Diskettenname, 
die  ID  und  eine  Liste  der  auf  der  Diskette  gespeicherten  Pro¬ 
gramme  und  Dateien. 


speichert  ist.  DN$  muß  genau  16  Byte  lang  sein.  Das  gleiche 
muß  zum  Ändern  der  ID  gemacht  werden  (Zeile  1260, 1270). 

Der  geänderte  Name  steht  nun  im  Pufferspeicher,  er  muß 
jetzt  nur  noch  zurück  auf  die  Diskette  gebracht  werden,  dies 
geschieht  durch  PRINT  # .  ''U2: "  ;8;0;  18:0  (schreibt  den  Inhalt 
des  Pufferspeichers,  der  Kanal  8  zugeordnet  ist,  auf  Spur  18, 
Sektor  0  der  in  Laufwerk  0  befindlichen  Diskette).  Die  Disket¬ 
te  ist  somit  geändert.  (Uwe  Repplinger) 
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1  REH“  HHtHHHiHHHHHHHHHHHHHilttHHiHIHHiHHHHfHiH 

2  REH*  ++++++  DISKETTENNAHE  ÄNDERN  ++++++ 

3  REH"  *««  -  ++++++ 

4  REH" 

5  REH“  ******  COPYRIGHT  (CI  1983  BY  ****** 

6  REH“  ++++++  OHE  REPPLINGER,  KAISERSTR.  30,  1000  BERLIN  42  +t+4++ 

7  REH*  »HHHHHIilHHtHHmHUHHHHHHHHHHHHHHHHHHHl 

8  : 

9  ! 

1000  PRINT  “<CLRXRE«0N>  =-=  DISKETTENNAHE  ÄNDERN  =-=  * 

1010  PRINT  "<REV0N>  (CI  BY  UWE  REPPLINGER 

1020  INPUT  *<D0HN>RICHTI6E  DISKETTE  EINBELEBT  J<3*LEFT>*;NI 

1030  IF  MOT  THEN  PRINT  "<D0HN>C0NT<3*UP>“  :  END 

1040  PRINT  "<D0WN/U1SKNAHE: °;SPC(1?) j’DISK  ID:“  :  PRINT  TAB(  10) ; "<UPXREV0N>“ ; 
1050  OPEN  1,8,15  :  PRINTII , “ 10’ 

1060  OPEN  6,8,8,’#” 

1070  PRINTII ,-Ul: -;8;0j 18;0 
1080  PRINTII,  “B-Ps"^;  144 
1090  FOR  1=1  TO  16 
liOO  6ET#B,CH$  ;  PRINT  CHI; 

1110  NEXT  I 

1120  PRINTII *B-P:“; 8; 162 
1130  GETI8,C1*,C24 
1140  PRINT  SPC(11);C1$;C21 

USO  INPUT  "<2*D0HN>S0LL  DER  NAHE  6E ÄNDERT  HERDEN  •J<3»LEFT>";Ht  :  6*4=0 

1160  IF  MOT  THEN  1210 

1170  INPUT  *<BOHN>NEUER  DISKETTENNAHE  ";ÜM 

1180  DN$=LEFTI(DNI+‘  *,161 

1190  PRINTII, "8-P:“;8; 144 

1200  PRINTI8,DN*  :  67.=1 

1210  INPUT  "<2-*DöHN>S0LL  OIE  DISK  ID  6EÄNDERT  «ERDEN  N<3*LEFT>“;HI 

1220  IF  MOT  THEN  1270 

1230  INPUT  *<D0HN>NEUE  DISK  ID  *;IM 

1240  ID$=LEFTf (ID4+*  “,2I 

1250  PRINTII, ■B-P";8jl62 

1260  PRINTI8,IDI  :  RX=1 

1270  IF  G£=l  THEN  PRINTII, “U2:";8j0;18;0 

1280  PRINTII ; **  10“  :  CLOSE  8  :  CLQSE  1 

1290  PRINT  “<2*DOHN:hREVON>*;  :  IF  6X=1  THEN  PRINT  *  DISKETTE  GEÄNDERT  -=-*; 
1300  PRINT  “  PR06RAHHENDE  * 

1310  END 

Programm,  mit  dem  der  Name  und/oder  die  10  einer  Diskette  geändert  werden  kann 

<CLR>  =  CLEAR  HOHE 
<REVQN)  =  CTRL  REVERS  ON 
<D0NN>  =  CURSOR  NACH  UNTEN 
<UP)  =  CURSOR  NACH  OBEN 
(LEFT)  =  CURSOR  NACH  LINKS 

Steuerzeichen 


l  / 

k 

fj 

Alter  Name 

Neuer  Name 

_ /, 

Programmze i le 


1050 

106.0 

1070 

1080 

1090  -  1110 
1120 

1130  —  1140 
1180 
1190 
1200 
1240 

1250  -  1260 

1270 

1280 


Erläuterung 


Befehlskanal  eröffnen  und  Disk  initialisieren 
öffnen  des  Datenkanals 

Directory  in  den  Pufferspeicher  lesen 
Zeiger  auf  Diskettennamen  setzen 
Diskettennamen  lesen  und  ausgeben 
Zeiger  auf  ID  setzen 

ID  lesen  und  ausgeben 

Diskettenname  auf  16  Zeichen  formatieren 

Zeiger  auf  Diskettennamen  setzen 

Heuen  Diskettennamen  in  den  Puffer  schreiben 

ID  auf  2  Zeichen  formatieren 

Zeiger  auf  ID  setzen  und  neue  ID  in  den 

Puffer  schreiben 

Geändertes  Directory  auf  Diskette  speichern 
Diskette  initialisieren ,  Daten-  und  Befehls— 
kanal  schließen 


Programmbeschreibung  anhand  der  Zeilennummern 


Name 


Belegung 


H * 

CH* 

CI* 

C2S 

DH* 

ID* 

G7. 

Variablendefinition 


Benutzer ein gäbe 

Alter  Diskettenname 

Erstes  Zeichen  der  alten  ID 

Zweites  Zeichen  der  alten  ID 

Neuer  Diskettenname 

Neue  ID 

G7.=l  :  Diskette  wurde  geändert 
GZ=0  i  Diskette  wurde  nicht  geändert 
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Dieses  Spiel  für  den  Com- 
modore  64  zeichnet  sich 
durch  seine  Variations Viel¬ 
falt  aus.  Wie  man  aus  dem 
Bildschirmfoto  erkennen 
kann,  befinden  sich  die 
Schätze  auf  mehreren  Eta¬ 
gen  verteilt,  die  wiederum 
untereinander  mit  Leitern 
verbunden  sind.  Die  Vertei¬ 
lung  der  Schätze  ist  völlig  zu¬ 
fällig,  es  kann  daher  auch 
Vorkommen,  daß  in  einem 
Stockwerk  kein  Schatz  pla¬ 
ziert  ist.  Vor  Beginn  des 
Spiels  können  Sie  die  Lauf¬ 
geschwindigkeit  des  Männ¬ 
chens  —  und  natürlich  die 
damit  korrelierte  Bewe¬ 
gungsvitalität  der  Monster  — 
m  Stufen  von  Eins  bis  Zehn 
einstellen.  Je  höher  der 
Schwierigkeitsgrad,  desto 
mehr  Punkte  können  Sie  er¬ 
zielen.  Aber  Vorsicht,  es  ist 
noch  kein  Meister  vom  Him¬ 
mel  gefallen.  Die  Spielstar¬ 
ke  10  dürfte  für  so  manchen 
zur  Erkenntnis  der  Selbst¬ 
überschätzung  führen. 


Haben  Sie  die  erste  Spiel¬ 
runde  überstanden,  was 
nicht  allzu  schwierig  ist,  da 
Sie  nur  von  einem  Monster 
belästigt  werden,  so  wird 
das  gesamte  Spielfeld  neu 
aufgebaut.  Das  heißt  die  Lei¬ 
tern  werden  in  einer  völlig 
anderen  Anordnung  mit  un¬ 
terschiedlicher  Länge  posi¬ 
tioniert.  Auch  das  Monster 
hat  sich  vermehrt,  nun  wol¬ 
len  zwei  Ungeheuer  Ihren 
Erfolg  verhindern.  Bei  jeder 
neuen  Spielrunde  kommt  ein 
weiteres  Monster  hinzu.  Die 
Sache  beginnt  knifflig  zu 
werden.  Jetzt  sind  Finger¬ 
spitzengefühl  und  Übersicht 
gefragt.  Insgesamt  haben 
Sie  vier  Schatzsucher  zur 
Verfügung,  um  bis  ans  »En¬ 
de«  der  Strapazen  zu  gelan¬ 
gen. 

Sie  können  Ihren  Schatzsu¬ 
cher  entweder  über  die  Ta¬ 
statur  oder  mit  einem  Joy¬ 
stick  steuern.  Und  nun  viel 
Spaß  bei  der  Jagd  auf  den 
High  Score.  (G.  Klauser) 


1.  Programmaufbau: 

Zeile  20: 

Basic-RAM  nach  oben  begrenzen 

Zeile  80: 

Spielanleitung  aufrufen 
Maschinenprogramm  laden 

Zeile  110-190: 

Spriteform  lesen 

Zeile  210-220: 

Video  Bank  2  ($8000-$BFFF)  wählen, 
damit  genügend  Platz  zum  Speichern 
der  Sprites  vorhanden  ist. 

Zeile  230 

Form  des  Schatzes 

Zeile  240-400: 

Sprites  initialisieren,  Spielfeld  auf¬ 
bauen 

Zeile  410-480: 

Bewegen  und  Abfragen  der  Sprites/ 
Tastatur 

Zeile  490-640: 

Initialisieren  der  Geister 

Zeile  650-770: 

Laden  des  Maschinenprogramms 

Zeile  780-1050: 

Subroutine  alle  Schätze  gehoben 

Zeile  1060-1280: 

Subroutine  Zusammenstoß  mit  Geist 

Zeile  1290-1320: 

Subroutine  Ton  initialisieren 

Zeile  1330-1680: 

Subroutine  Spielanleitung 

Zeile  1690-1730: 

Subroutine  Spielfeld  aufbauen 

Zeile  1740-3300: 

Subroutine  Leitern  stellen 

Zeüe  3310-3440: 

Subroutine  Schätze  verteilen 

Zeile  3450-3790: 

Maschinenprogramm  Bildschirmauf¬ 
bau 

Zeile  3800-5970: 

Maschinenprogramm  Bewegung/ 
Tastaturabfrage 

Zeile  5980-7950: 

Spriteformen 

SSSf 

IBP 


i 


Das  Programm  »Schatzsucher« 
nach  Zeilennummern  aufgeschlüsselt 


Der  Name  des  Pro¬ 
gramms  scheint  zu 
täuschen.  Denn  die 
Schätze,  die  Sie 
suchen  sollen,  sind 
nicht  irgendwo  ver¬ 
steckt,  im  Gegenteil, 
sie  liegen  offen  vor 
Ihnen.  Nur  beim 
Aufsammeln  dieser 
wertvollen  Gegen¬ 
stände  werden  Sie 
von  Monstern  in 
nicht  unerheblicher 
ü.id  Weise  behin- 
dert.  Schlagen  Sie  den  Monstern  ein  Schnip 
Sie  Reaktionsvermögen  und  Übersicht,  vor  al 


2.  Erläuterungen: 

Da  Video  Bank  2  gewählt  wurde,  muß  dies  dem  Screen 
Editor  mit  POKE  648,132  mitgeteilt  werden. 

Wird  ein  Programm  nach  Zeile  220  mit  (RUN /STOP)  (RE- 
STORE)  abgebrochen,  ist  auf  dem  Bildschirm  nichts  Sinn¬ 
volles  zu  erkennen,  da  der  Screen-Editor  nicht  automa¬ 
tisch  zurückgesetzt  wird.  Dies  kann  jedoch  durch  ein  PO¬ 
KE  648,4  manuell  geschehen. 

Beim  Einlesen  der  DATA-Zeilen  des  Maschinenprogram¬ 
mes  wird  alle  10  Zeüen  ein  Checksummentest  durchge¬ 
führt,  um  Eingabefehler  zu  vermeiden.  Dieser  Test  er¬ 
kennt  jedoch  keine  Fehler,  die  sich  gegenseitig  aufhe- 
ben. 

Wenn  das  Programm  einwandfrei  läuft,  kann  dieser  Test 
entfernt  werden,  um  das  Einlesen  der  Data-Zeilen  zu  ver¬ 
kürzen.  Am  vorteilhaftesten  ist  es,  wenn  die  beiden  Ma¬ 
schinenprogramme  mit  Hilfe  eines  Monitors  als  Maschi¬ 
nenprogramm  abgespeichert  werden,  da  dies  die  Lade¬ 
zeit  gewaltig  verringert. 


$COOO-$COC4: 

$C400-$C92E: 

Temporäre 

Speicher: 

Zeiger: 


Programm  zum  Bildschirmaufbau 
Programm  Bewegung/ 
Tastaturabfrage 

$CF90-$CFFF 
$FB,  $FC,  $FD,  $FE 


Einige  Erläuterungen  zum  »Schatzsucher« 
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pchen,  zeigen 
lern  —  bewahren  Sie  ruhig  Blut. 


Eine  Spielszene  vom  »Schatzsucher 


ucner« 


K  Das  Spiel 
Schatzsucher 
braucht  sich  nicht 
hinter  profess¬ 
ionellen  Spielen 
zu  verstecken. 

Wegen  der  grafisch 
ansprechenden 
Lösung  und 
dem  Spielwitz 
wurde  es 
zum  Listing 
des  Monats 
gewählt. 


10  REM  SCHATZSUCHER 
20  P0KE56 , 1 £7 
25  D IM  LH<6,2> :DIMLEC6,2> 

30  FORM -0TO6 : FORY =0TO£ 

40  LH<X,Y>=0 
50  LE<X,Y>=0 
60  NEXTY 
70  NEXTX 

80  GOSUB 1 330 : GOSUBB50 
90  PU=0 : DU=0 : AS  = 1 s  PG=0 
100  BA=32768 

1 10  FQRX -0TO62 : READDA : POKE 1 5808+BA+X ,  DA :  NEXT 
120  FORX=0TOS2 : READDA : POKE 15S72+BA  +X ,  DA  : NEXT 
130  FORX=0TO62 : READDA : POKE 15936+BA+X ,DA *NEXT 
140  FORX=0TO62 : READDA : POKE 16000+BA +X , DA : NEXT 
150  FORX=0TO62 : READDA: POKE 16064 +BA+X, DA: NEXT 
1S0  FORX  =  0TO62 : READDA : POKE 161 28+BA  +X  ,DA : NEXT 
1  70  FORX  =  0TO62  :  READDA  :  POKE832  +  BA+X  ,DA  :  NEXT 
130  FORX=0TO62 : READDA : POKE836+BA+X ,DA :  hEXT 
190  FORX=0TO62 : READDA : POKE960  +  BA+X , DA : NEXT 
200  OT=PEEK <56573) 

2 1 0  POKE56578 ,PEEK <56573  >0R3 : P0KE56576 , <PEEK  <56576  >AND252 )OR 1 
220  PnKE56578  .OTi  P0KE648 ,  1 32  :  PR  I  NT  “  iJ“ 

230  UE  =42  +  1 28  :  POKE53  1 50  ,  UIE 
240  POKE2040  +BA  ,  247 : POKEV  +21,3 

250  V=53248 : POKEV, 32 : POKEV+1 ,220: POKEV +21 , 1 : POKEV +39 ,7 : XM=32 : YM=220 : POKE2040  +BA , 
260  POKEV +16,0 

270  POKEV +  37 ,2:P0KEV  +  38,7: POKEV  +39 ,6: POKEV  +  40 ,5 : POKEV +4 1 ,4 : POKEV +42 ,3 : POKEV +43 ,7 

280  POKEV+28,255 

290  PU=0 : OU=0 : AS= 1 : PG=0 

300  POKEV  +2 1 ,3 : POKE2040+BA ,247 

310  GOSUB 1690 :POKE53149,0 

320  POKEV  +  16..PEEK  CV  +  16  1AND254  :  POKEV  ,32  :  POKEV  +  1  ,220:  YM=220  :  XM=32  :  POKE2040+BA  ,247 


D 


er  Autor  Gerhard  Klauser 
1  stellt  sich  im  folgenden 
kurz  selbst  vor: 

—  Geboren  am  8.12.1958  in 

Dornbirn/Österreich 

—  Ausbildung  als  Elektro¬ 
techniker 

—  Derzeitige  Tätigkeit:  Test¬ 
programmerstellung  für  Lei¬ 
terplatten  und  Prüfplanung 

—  Zur  Spielidee:  Als  ich  im 
Sommer  1983  den  Commo- 
dore  64  erwarb,  da  waren 
nur  wenige  Spielprogram¬ 
me  erhältlich.  Daher  be¬ 
schloß  ich,  ein  Spiel,  das  ich 
auf  einem  Spielautomaten 
gesehen  hatte,  in  verbesser¬ 
ter  Form  für  den  C  64  zu  er¬ 
stellen.  Das  Ergebnis  von  zir¬ 
ka  60  Stunden  Arbeit  liegt  Ih¬ 
nen  nun  vor.  Anmerkung: 
Das  Spiel  war  ursprünglich 
vollkommen  in  Basic  ge¬ 
schrieben,  es  war  jedoch  so 
langsam,  so  daß  ich  die  Be¬ 
wegungsabläufe  in  einem 
Maschinenprogramm  zu¬ 
sammenfaßte. 

(Ing.  Gerhard  Klauser) 


330  GOSUB 1740 
340  GOSUB3310 

350  PO=BA  +  1024  +  1  NT  <  <  YM-50  ) /%  >  *40  +  INT  <  <XM-24>,'8> 
360  PH= INT (PO/256  > : PL=PO-PH*256 
370  POKE53238 ,PL : P0KE53239 ,PH 
380  GOSUB490 

390  FOKE53265 ,PEEK  <53285 )OR 16 
400  GOSUB 1280 

410  REM  MANN  BEWEGEN/ABFRAGE 

420  SYS50176 

430  FORX=lTOSG.-N£XT 
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450 

460 

470 

480 

490 

500 

510 
530 
530 
540 
550 
5S0 
570 
580 
580 
600 
610 
620 
630 
640 
650 
660 
670 
G80 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
730 
800 
S  1 0 
320 
830 
840 
850 
860 
370 
880 
890 
900 
910 
920 
930 


IF (PEEK  (  V+30 )AND  <1)5  =  1 THEN 1060 
PU=PU+PEEK (53149) : P0KE53 149,0 
IFPU= 10THEN780 
GOTO  420 

REM  GE  IST  INITIALISIEREN 

X( 1 >=32: Y( 1 >=58:X<2>=312: Y<2>=58:X<3>=32: Y(3>=90: 

X<4)=312: Y<4>=90 
POKEV  +2 ,X  < 1 > :P0KEV+3,Y( 1  > 

POKEV  +4 ,X (2  )  -255  :  POKEV +5 ,Y  (2  ) 

POKEV +6 ,X<3> : POKEV +7 ,Y(3> 

POKEV  +8  ,X ( 4  ? -255 : POKEV+9 , Y<4 ) : POKEV + 16 ,20 
POKE204 1 +BA  ,  13 : V  < 1 ) =0 : POKE2042  +BA ,  14  :  V  <£  >  =  1 
POKE2043+BA  ,  1 5  :  V  <3  )  =2  :  POKE2044  +BA  ,  13  •-  V  <4  >  =0 
FORK  = 1 T04 :  R  (K  >  =2 : NEXT 
FORK  =  1 T04 

PO  CK)  =BA  +  1  024  +  INT <  (  Y  <  K  > -30  -> SQ  )  *40  +  I  NT <  <X(K  )  -24  : NEXTK 

FORK  =  1 T04 : POKE53233  +2*K , < INT (PO <K >/256 > > 

POKE5323B+2*K , ( PO <K > - < INT (PO < K >/256) ) *256 > : NEXTK 

F0KE53223+2 ,3? : POKE53223 <4 , 34 : POKE53223 +6 , 37 : POKE53223 +8 ,34 

P0KE532 19+2, 37 : P0KE532 19+4,34:P0KE53219+6,37: P0KF532 1 9  +3,34 

POKEV  +30 , 0  :  P0K.E54272  +  14  ,255  :  P0KE54272+  15 ,255  :  P0KE54272+  13 , 128:  RETURN 

REM  LADEN  DES  MASCH I NENPROGRAMMS 

2  IEL=49152:XS=0 

REAOX: IFX= - 1 THEN750 

XS=XS+X 


Vorgezogener  Schluß  des  Listing 
(von  Seite  95)  »Schatzsucher« 


6910  DATA  000,020,128 
6320  DATA  000,020,128 
6930  DATA  000,170,128 
6940  DATA  002,170,000 
6350  DATA  002,170,000 
6960  DATA  008,170,000 
6970  DATA  008,170,000 
6980  DATA  004,170,000 
6930  DATA  000,170,000 
7000  DATA  000,255,000 


IF  X<  > ( -2  > THEN  GOTO  740 

READXS: READ  CHECKSUM: IFXS=CHECKSUMTHENXS=0 : GOTO670 
PR INTMU"; "CHECKSUMMENFEHLER  IN  " ; X* 

PR INT*SOLLWERT= CHECKSUM 
PRINT“ ISTWERT  =";XS:STOP 
POKE2 IEL,X :Z I  EL  =Z I  EL  + 1 : GOTO670 
IF  2 IEL  >5 1473THENRETURN 
Z I  EL  =50 1 76 : GOTO670 
RETURN 

REM  ALLE  SCHAETZE  GEHOBEN 
PG=<PU*AS*  100)  *PU<0>  +  <PG> 


PU=0 : P0KE53 149,0 
IF  MA<PGTHENMft=PG 
V2=PEEK(V+21 ) 

GOSUB320 

PRINT"kIHRE  PUNKTE:  ■  ,PG 

PR  INT "UMkMAX IMALE  PUNKTE:  " ,MA 

PR  INT “ SQS  I E  HABEN  NOCH  " , <4 -DU > ;  “  SCHATZSUCHER¬ 
IF  DU=4  THEN  PRlNT-BIMMItmiMMEP  1ELENOE  ■  :  FORK  =  1 TO5000  :  NEXTK  :  GOTO200 
FORK= 1TO5000 : NEXTK : AS  = AS  + 1 
IFAS=2THENP0KEV+2I ,7:GOTO310 
IFAS=3THENP0KEV  +2 1 ,15:GOTO310 
POKEV  +2 1,31 : GOT03  10 

S I =54272 : POKES 1  +  12, 9: POKESI  + 13,255 IPOKESI +24, 15:P0KESI  +  11  » 

FORX=0TO255STEP 15 : POKES I +8 ,X : POKES I +7,255 


340  FORY=0TO255STEP 15 : POKES I +7 , 255 -Y 
950  NEXTY 
360  f-EXTX 

370  POKES  1  +  12,9:  POKES  1  +  13,0:  POKES  1+3,10:  POKES  1+7,177  LlSting  »Schatzsucher« 

930  IF  vh=3 i  THEN  um=4  (Fortsetzung) 

390  IF  V2=15  THEN  UM=3 

1000  IF  V2=07  THEN  UM=2 

1010  IF  V2=03  THEN  UM= 1 

1020  FORX=UM  TO  0  STEP-1 

1030  POKES I + 1 1 , 33 : POKES I + 1 1 ,32 

1040  POKEV  +2 1 , (PEEKCV+21 > AND (255 -2 tX > ) 

1050  FORY=0TO800:NtX  I  Y:NEXTX: POKEV +21  , 0 : PR  I NT  "LBEKS"  : RETURN 
1060  REM  Z USAMMENSTOSS  MIT  GEIST 

1070  S 1=54272: POKES 1+12,9: POKES 1+13,255: POKES 1+24, 1 5 : POKES I +8 ,8 : POKES I +7 ,255 : POK 
ESI +  11,  17 

1080  V2  =  PEEK (V  +2 1 ) :POKEV+21 ,V2AND254 

1090  FORZE= 1TO10 : POKEV +29 ,255 : POKEV+23 ,255 : POKES 1+8,20 

1  1 00  FORLIA=  1  TO70  :  NEXTWA  :  POKEV  +23 , 0  :  POKEV  +23 , 0  :  POKES  I  +3  ,8  :  FOR WA  =  1  TO70  :  NEXTWA  :  NEXT 
ZE 

1110  POKEV  +29 ,0: POKEV  +  23 ,0: POKES I  +  1  1  ,0 

1120  PG=<PU*AS*100>*PUC0>+PG 

1130  PU=0 : DU=DU+ 1 

1140  IF  MA<PGTHENMA=PG 

1150  PR  I  NT  “  iuIffiSSKJ" 

1 1G0  POKEV  +2 1 ,0 

1170  PR INT" k IHRE  PUFKTE :  “ ,PG 

1130  PRINT"gHk.MAXIMALE  PUNKTE:  ”,MA 

1190  PRINT-SBEIE  HABEN  NOCH  ",(4-DU>;'  SCHATZSUCHER" 

1200  1 FDU  =4  THEN  PR  INT " MM— Ml— 1  »EP  1ELENDE  "  =  FORK  =  1  TO  1 OOP  =  NEXTK  :  GOTO  1  £20 

1210  GOTO  1270 

1220  POKE198,0:  INPUT  “  HKBECHLII  ER  I GKE  I TSGRAD  ANGEBEN  <1-10V;SG 

1230  PU ( 0 1  =  I NT (SO  1 

1240  IFPU(0)>1 0THENPU ( 0  >  =  1 0 

1250  IFPU (0  5  < ITHEKPU (0  )  =  1 

12S0  SQ=100— 10*PU(0) : GO TO £00 

1270  FORK=1TO5000: NEXTK 

1230  POKEV+21 ,V2 : 60T03 10 

1290  REM  TON 

1300  S I =54272 : FL =S I : FH =S I + 1 : TL=S I +2 : TH=S I +3 : W=S I +4 : A =S I +5 : H=S I +6 : L=SI+24 

1310  PÖKEL, 15 : POKEA , 15*16+15: POK EH , 1*16+1 : PQKETH ,8 : POKETL ,0 :POKEFH , 14 : POKEFL , 162 

1320  RETURN 

1330  REM  SPIELANLEITUNG 

1340  POKE53280 ,2 : P0KE5328 1 ,2:PRINT'k" 

1350  PRINT"iXOPYRIGHT  COPYRIGHT  COPYRIGHT  COPYRIGHT' 


7010 

DATA 

000  ,255,000 

7020 

DATA 

000 ,195,000 

7030 

DATA 

000,195,000 

7040 

DATA 

000,131 ,000 

7050 

DATA 

002 , 131 ,000 

70S0 

DATA 

000,002,000 

7070 

DATA 

000,002, 123 

7080 

REM  MANN  STEIGEND 

LINKS 

7030 

DATA 

000,060,000 

7100 

DATA 

004  ,255 , 000 

7110 

DATA 

008,020,000 

7120 

DATA 

008,020,000 

7  130 

DATA 

002,020,000 

7140 

DATA 

002,020,000 

7150 

DATA 

002,170,000 

7  1S0 

DATA 

000,170,128 

7170 

DATA 

000, 170, 128 

7180 

DATA 

000 , 1 70 ,032 

7190 

DATA 

000, 170,032 

7200 

DATA 

000, 170,016 

7210 

DATA 

000,170,000 

7220 

DATA 

000,255,000 

7230 

DATA 

000,255,000 

7240 

DATA 

000 ,195,128 

7250 

DATA 

000, 135,128 

72S0 

DATA 

000 , 194,000 

7270 

DATA 

000 ,134,128 

7280 

DATA 

000, 128,000 

7230 

DATA 

002, 128,000 

7300 

REM  GEIST  FORM  1 

7310 

DATA 

000,040 ,000 

7320 

DATA 

000,040,000 

7330 

DATA 

000 , 170,000 

7340 

DATA 

002, 170,128 

7350 

DATA 

002, 105, 128 

7360 

DATA 

138 , 170 , 162 

7370 

DATA 

170, 170, 170 

7380 

DATA 

169, 105,106 

7390 

DATA 

170,085,170 

7400 

DATA 

138 ,085,162 

74  10 

DATA 

010, 150 , 160 

7420 

DATA 

002, 170,128 

7430 

DATA 

002, 170,128 

7440 

DATA 

002, 170,128 

7450 

DATA 

000, 170,000 

7460 

DATA 

000 , 130,000 

7470 

DATA 

000, 130,000 

7480 

DATA 

002 , 162,000 

7490 

DATA 

000  ,002,000 

7500 

DATA 

000,002,000 

7510 

DATA 

000,010, 128 

7520 

REM  GEIST  FORM  2 

7530 

DATA 

000  ,040 ,000 

7540 

DATA 

032,040,008 

7550 

DATA 

163,170,042 

7560 

DATA 

170,170,170 

7570 

DATA 

042 ,105,168 

7530 

DATA 

010,105,160 

7530 

DATA 

010, 105, 160 

7600 

DATA 

010 , 170, 160 

76  10 

DATA 

010.170,160 

7620 

DATA 

010,085, 160 

7630 

DATA 

010, 150, 160 

7640 

DATA 

010,085, 160 

7650 

DATA 

002, 170,128 

7660 

DATA 

002 ,170, 128 

7670 

DATA 

000, 170,000 

7680 

DATA 

000, 132,000 

7690 

DATA 

000 , 132,000 

7700 

DATA 

000 , 132,800 

7710 

DATA 

000,132,000 

7720 

DATA 

000, 132,000 

7730 

DATA 

001,170,128 

7740 

REM  GEIST  FORM  3 

7750 

DATA 

000,040,000 

7760 

DATA 

000 ,040 ,000 

7770 

DATA 

000, 170,000 

7780 

DATA 

002, 170, 128 

7730 

DATA 

002 ,105,128 

7800 

DATA 

010,105,180 

73  10 

DATA 

010,170,160 

7820 

DATA 

041,150,104 

7830 

DATA 

04 1 ,035 , 104 

7840 

DATA 

163,085 , 103 

7850 

DATA 

170, 105, 170 

7860 

DATA 

138 , 170 , 162 

7370 

DATA 

130 ,170,130 

7880 

DATA 

002, 170,128 

7330 

DATA 

000, 170,000 

7900 

DATA 

000 , 130 ,000 

7310 

DATA 

000 , 130,000 

7920 

DATA 

000 ,138, 128 

7330 

DATA 

000, 128,000 

7940 

DATA 

000 , 128,000 

7350 

DATA 

002,160,000 

READY. 
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1 3S0  PRINT  "MUMM" 


1370 
1330 
1330 
1400 
14  10 
1430 
1430 
1440 
1450 
1460 
1470 
1430 
1490 
1500 
1510 
1 530 
1530 
1540 
1550 
1560 
1570 

1  530 
1590 
1600 
1610 
1630 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
17  10 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1300 
1310 
1320 
1330 
1840 
1850 
1860 
1370 
1830 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1930 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2030 
2030 
2100 
21  10 
2120 
2130 
2140 

2  150 
2160 
2  170 
£130 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 


PR  I  NT  "  kllUHUl^  CH  ATZ  SUCHE" 

PRINT ■■■■»»■»MB 650  DORNBIRN* 

PR  I  NT  "  aiMIWIWIHflEH  L  I NGEN  3 
PR  I  MT "  ÜlUIIIIUIIIin USTR  I A  11 

PRINT  "  MHWMMCQP'Y'R  I GHT  COPYRIGHT  COPYRIGHT  COPYRIGHT" 

FORK.  =  1 TO300O  :  NEXTK 
PRINT "U" 

PRINT" ES  GEHT  OHRUM,  MDEGL ICHST  VIELE  SCHAETZE"; 

PR  INT "ZU  HEBEN,  OHNE  VON  DEN  GEISTERN  GEFANGEN"; 

PR  INT “ZU  WERDEN." 

PR INT "WENN  ALLE  SCHAETZE  GEHOBEN  SIND,  DANN" 

PR I NT "ERHALTEN  SIE  EIN  FREISPIEL." 

PRINT"ZUSAETZL ICH  ERHOEHT  SICH  DER  SCHWIERIG-  KE  I TSGRAD .  " 
PR  INT "BE  I  KONTAKT  MIT  EINEM  GEIST  WIRD  NEU" 

PR INT"GESTARTET,  DIE  ANZAHL  DER  SCHATZSUCHER" 

PR  INT" WIRD  UM  EINS  VERRINGERT" 

PR INT” BE  IM  START  STEHEN  4  SCHATZSUCHER  ZUR  VERFUEOUNG .  " 

PR  INT"  S" 

PR  1  NT  “  »H11HIME  E  W  E  G  U  N  G 

PRIMr:tlBB»lHUBI<P>  =  AUFWAERTS" 

PR  I  NT  "  IBHIHIIIK  L  >  =  LINKS" 

PR  I  NT  "  UIIHIIWK  ;  >  =  RECHTS" 

PR1NT"BBBBBBBBBBB3DER  JOYSTICK  2" 

I NPUT"B3CHWI ER IGKEI TSGRAD  ANGEBEN  C1-10)";SG 
PU<05= INT<SG> 

I FPU  <  0  5  > 1 0THENPU <05=10 
I FPU  (0X1 THENPU  <05  =  1 
sg= loa- io*pu  <eo 
RETURN 

REM  SPE ILFELD  AUFBAUEN 
PRINT"  J" 

SYS4S152 

POKE53230  ,0 : POKE5328 1  ,0 
RETURN 

REM  LEITERN  AUFBAUEN 

L a  2 )  =  i nt  <rnd  <  4  5  *3  >  + 1  Listing  »Schalzsucher« 

ifla<£  )  =  1THENIS60  (Fortsetzung) 

LE  (2  ,25  =  1  NT <RND  <5  5  *3 15  +  1308+BA  ' 

FORX=0TO3 


PÖKELE  <2,2  5 -X*40 , 115 

PÖKELE  <2 ,£5-X*40+54£7£-BA,  10 

PÖKELE  <£,£5-l-X*40,64 

PÖKELE  C2,£5  -  1  -X*40 +54272 -BA  ,  1  0 

PÖKELE (2,2) -£-X*40 , 107 

PÖKELE (2,2) -2 -X *40 +54272 -BA , 10 

NEXTX 

LE  <2, 1  5  =  1  MT ( RND <55 #3 1  )  + 1308+BA 
I FLE  <  2  , 1 5 ><LE<2,£5+85THEN1900 
I FLE <  £  ,  1  5  <  < LE  <2,25-1 1  5THEN1900 
GOTO  1860 
FORX=0TO3 

PÖKELE  <2 , 1 ) -X*40 , 115 

PÖKELE <2, 1 >-X*40+54272-BA, 10 

PÖKELE (2, 1 > -1 -X *40, 64 

PÖKELE <2, 1 >- 1-X*40 +54272 -BA, 10 

PÖKELE <2, 1  5 -2 -X*40 , 107 

PÖKELE  <2  ,  l)-2-X*40+54272-BA, 10 

NEXT 

LA  (3  5 =2 

I  FLA  (3  5  =  1  THEN2  1 90 
LH  <3,25=1 NT  <  RND (6  >  *2 5 +1 
LE<3,£5=I NT  <  RND  <25*31  5+1468+BA 
IFLE  <3 ,2 5 5LE  <2 , 1 5 +5+ 1 60THEN2050 
IFLE  <3,25 <LE (2,1 5 -7+ 1 60THEN2050 
GOTO20 1 0 

IFLE  C3 ,2  5 5LE (2 ,2  5 +5+ I 60THEN2080 
IFLE  C3 ,2  5  <LE  <2,2  5 -7+1 S0THEN2030 
GOTO2010 

FORX  = 1 T04  *LH<3,25 

PÖKELE <3,£5-CX- 15*40, 115 

PÖKELE  <3  ,2 5-CX-l  5  *40 +54272 -BA  ,  10 

P0KELE<3,2>-1 -<X-1 5*40,64 

PÖKELE <3,25  - 1 -<X-1 5 *40 +54272 -BA , 10 

PÖKELE  <3,25-2-<X-l 5*40, 107 

PÖKELE (3 ,£ 5 -2 - <X- 1 5 *40 +54272 -BA  ,  10 

NEXT 

LH  <  3  , 1 5  =  1 MT < R  ND  <65*25+1 
LEO,  1  5  =  INT  (RND  (2  5  *31  5  +  1468+BA 
IFLE  <3,15 >LEC2, 15+3+ 160THEN2210 
IFLE (3 ,15  <LE  <2,15 -3 + 1 60THEN22 1 0 
GOT02 170 

IFLE  C  3 , 1 5  >LE  <2,25+5+1 S0THEN2240 
IFLE  C3 , 1 5 <LE  <2,25-7  +  1 60THEN2240 
GOT02 170 

IFLE  <  3  , 1 5  >LE (3,25  +5THEN2270 
IFLE <3, 1  5<LE<3,2  5-7THEN2£70 
GOT02 170 

FORX  = 1T04*LH  <3,1 5 

PÖKELE  <  3  , 1 5-CX-l 5*40 , 1 13 

PÖKELE C3 ,  l  5-CX-l 5 *40 +54272 -BA , 10 


2300  PÖKELE (3, 1 J-l-CX-l 5*40,64 

23  10  PÖKELE C3,l >  —  1 -<X— 1 5 *40 +  54272 "BA , 1 0 

2320  P0KELEC3, 1 5-2-CX-l 5*40, 107 

2330  PÖKELE <3 , 1  5-2- (X- 1  5  *40  +  54272 -BA , 10 

£340  NEXT 

£350  LA  <45  =  1 NT  <  RND  <15  *2  5  +  1 
£360  IFLA<45=1 THEN2470 

2370  LH  <4,25  =  1 

2330  LE  <4  ,2  >  =  INT (RND (2  5*31  5  +  1628+BA 

£330  FORX= 1 T04 *LH<4,£5 

£400  PÖKELE  <4,£5-<X-15*40,115 

£410  PÖKELE (4,2 5 -<X- 1 5 *40 +54272 -BA , 1 0 

2420  POKELE<4,£5-l-<X-l 5*40,64 

2430  PÖKELE  C4 ,2  5  -  1  -<X-1  5  *40 +54272 -BA  ,  10 

2440  P0KELEC4 ,£>-2-<X-l  5*40, 107 

£450  PÖKELE <4  ,£ 5-2-CX-l ) *40 +54272 -BA , 1 0 

2460  NEXT 

£470  LE <4,1 5  =  1 NT < RND  <25  *3 1 5+1628+BA 
£480  LH  <4,15  =  1 

2490  IFLE<4, 1 5  >LE<4,£5  +7THEN25H0 

2500  IFLE <4, 1 5<LE(4,25- 1 0THEN2520 

2510  GOTO2470 

2520  F0RX=1T04*LH<4 , 1 5 

2530  P0KELEC4 , 1 5-CX-l 5*40, 1 15 

£540  PÖKELE <4 , 1 5-CX-l 5 *40+5427£-BA , 10 

£550  P0KELEC4 , 1 5-1-CX-l 5*40,64 

2560  PÖKELE  <4 , 1  5-1 -CX-1 5 *40 +54272 -BA  ,  10 

£570  P0KELEC4 , 1 5-2-CX-l 5*40, 107 

2580  PÖKELE <4 , 1 5 -£ - C X - 1 5 *40 +54272 -BA , 10 

2590  NEXT 

£600  LA  <55  =  1  NT  C  RND  <75*45  +  1 

£610  IFLA <55 = 1THEN2730 

£620  LH  <5,2  5  =  INT <RND  <6  5*45  +  1 

2630  I FLH  <5,25  52THENLH  <5,2  5 =2 

2640  LE<5,25  =  I NT  <  RND  <25*31 5+1788+BA 

£650  IFLE <5,2 5  >LE <4,1 5 +5 + 1 60THEN2680 

2660  IFLE<5,25<LEC4 , 1 5 -7 + 1 60THEN2680 

£670  G0T0264  0 

2680  IFLE<5,£) >LE<4 ,25+5+ 1 60THEN27 I 0 

2690  IFLE  <5 ,2  5  <LE  <4 ,2 ) -7 + 160THEN27 1 0 

£700  G0T0264  0 

£710  FORX= 1T04  *LH<5,£5 

2720  PÖKELE  <5,2>-<X— 15  *40 ,115 

£730  PÖKELE <5,2 5-CX-l 5*40 +54272 -BA, 10 

2740  POKELE<5,£5-l-<X-l 5*40 ,64 

£750  PÖKELE <5, 2 5-1-CX-l 5 *40+54272 -BA , 10 

£760  P0KELEC5 ,£5-2-<X- 1 5*40 , 107 

2770  PÖKELE  C5 ,2  )  -£- <X- 1 5 *40  +54272-BA , 10 

2730  NEXT 

£790  REM 

28O0  LH  <5,15  =  1 NT  <  RND  <65*25  +  1 
£8  10  LE <5, 1 5=1 NT  CRND  <25  *3 15+ 1788  +BA 
£820  IFLE  <5 , 1 5  >LE<4 , 15+3+ 160THEN2850 
£830  IFLE  <5 , 1 5  <LE  <4 , 1 5 -3 + 1 60THEN2S50 
2840  GOTO2810 

£850  IFLE  <  5 , 1 5  >LE<4  ,2 5 +3+ 160THEN2880 
2860  1FLEC5, 1 5  <LE  <4,25-3+ 160THEN2830 
2870  GOTO2810 

£880  IFLE <5, 1 5  5 LE <5 , 2 5 +3THEN29 1 0 
2830  IFLEC5 , 1 5 <LE <5 ,2 5 -7THEN29 10 
2900  G0T02S 1 0 
2910  F0RX=1T04*LH<5 , 1) 

£320  ROKELE<5,15-<X-15*40,1 15 

£930  PÖKELE  <5 , 1 5-CX-l 5 *40 +54272 -BA , 10 

£340  P0KELE<5, 1 5- 1- <X- 1 5*40,64 

2950  PÖKELE <5 , 1 5-1-CX-l 5 *40+54£72-BA , 10 

£960  PÖKELE <5, 1 5-2-CX-l 5*40, 107 

£370  PÖKELE  <5 , 1 5 -2- CX- 1  5 *40 +54272 -BA , 10 

2930  NEXT 

2990  LH  <6,25  =  1 

3000  Lfl<S5=£ 

3010  IFLAC6 5= 1THEN3170 
3020  LE  CS ,2  5  =  I NT < RND < £  5  *3 1  5  +  1343+BA 
3030  IFLEC6  ,25  >LE<5, 1 5+5  +  160THEN3060 
3040  IFLE <6 , 2  5  < LE  < 5 , 1 5 -7 + 1 B0THEN3060 
3050  GOTO3020 

3060  IFLE  <6 ,2) >LE  <5,2  5  +5+ 160THEN3030 

3070  IFLE  < 6  ,2 5  < LE <5 ,2  5 -7 + 160THEN3090 

3080  GOTO3020 

3090  FORX = 1 T04  *LH  <6,25 

3100  PÖKELE <6 ,25-CX-l 5*40, 1 15 

3110  PÖKELE  <6 ,2  5 -<X-1 5 *40+5427£-BA , 10 

3120  P0KELE<6,£5-1-<X-1 5*40,64 

3  130  PÖKELE  <6,25-1  — <X-1  5 *40+54272 -BA , 10 

3140  PGKELE<6,£5-2-<X-l 5*40,107 

3150  PÖKELE  <6,25-2-CX-l > »40+54272-BA , 10 

3160  NEXT 

3170  LH  <6,1  5  =  1 

3130  LE <6,1  5  =  1  NT  <  RND  <25  *31  5  +  1948+BA 

3  190  IFLE  <6,15  >LE  <6,25  +8THEN3220 

3200  IFLE  <6,15  <LE  <6,25 -7THEN3220 

3210  GOTO31S0 

3££0  FORX  =  1  TO 4  *LH  <6,15 

3230  P0KELEC6, 1 5-CX-l 5 *40, 1 15 

64er-onüne.cle 

64er-onllne.net 


3240  PÖKELE  <  6 , 1 ) - (X - 1 5 *4 0 +54272 -BA , 10 

3250  PÖKELE <6, 1 )-l-<X-l ) *40,64 

3260  PÖKELE <6, 1 > - 1 - <X- 1 > *40 +54272 -BA , 1 0 

3270  PÖKELE (6, 1 > -2-<X- 1 > #40 , 107 

32S0  PÖKELE  <6 , l)-2-<X-i > *40+5427£-BA  ,  10 


4110  DATA  160,  207,  162,  247,  142,  192 
4120  DATA  207,  162,  S,  142,  176,  207 
4130  DATA  32,  22,  138,  32,  236,  196 
4140  DATA  160,  3,  32,  72,  200,  160 
4150  DATA  8,  140,  160,  207,  162,  239 


3230 

NEXT 

4  160 

DATA 

142  , 

1S£,  £07 

,  1  S£ 

,  16,  14£ 

3300 

RETURN 

4  170 

□  ATA 

176, 

£07,  3£, 

££, 

138,  3£ 

3310 

REM  SCHAETZE  VERTEILEN 

4  130 

DATA 

£36, 

138,  160 

,  4  , 

32,  72 

33£0 

AZ  =0 

4190 

DATA 

£00  , 

86,  185, 

£08  , 

£07,  153 

3  330 

FORX=0TO9 

,  "4100  - 

4198",  8156 

3340 

PS= INT<RhC<8 ) *37) +£ 

4200 

DATA 

££4  , 

207,  £01 

,  33, 

£40,  14 

3350 

ZE  = I  NT ( RND  < 4 ) #6 ) + 1 

4£  10 

DATA 

201  , 

36,  £40, 

13, 

£01,  37 

3360  IFPEEK <  1104  +BA  +PS  +  <  ZE  -  1  ) *  1 60 ) =3£THEN3380 
3370  6OTO3340 

3330  IFPEEK  <  1  104+BA+PS- 1  +  <ZE- 1 ) *  160)  =  160THEN3340 

3390  IFPEEK  <1104 +BA+PS+ 1 +  <ZE - 1 ) #160  )  =  160THEN334  0 

3400  POKE  < 1 104+BA+PS+<2E-1 )*160> ,UIE 

3410  POKE  <  1  104  +PS  +  <  ZE- 1  )  *160+54272)  ,  13 

3420  AZ  =  AZ  +  1 

3430  hEXTO 

3440  RETURN 

3450  REM  MP  DATA  ZEILEN 


3460 

DATA 

160,  0,  1 6£ ,  0,  173,  134 

3470 

DATA 

132,  133, 

£51,  173,  135, 

132 

3480 

DATA 

133,  £5£, 

169,  13,  145, 

£51 

3430 

DATA 

£30,  £51 , 

£40,  3,  76,  £7 

3500 

DATA 

192,  230, 

£52,  165,  25£, 

£01 

3510 

DATA 

£19,  £40, 

3,  76,  14,  132 

3520 

DATA 

165,  251, 

£01,  £55,  240, 

3 

3530 

DATA 

76,  14,  192,  £34,  169,  0 

3540 

DATA 

133,  £51, 

169,  132,  133, 

£52 

3550 

DATA 

160,  0,  32 ,  181,  1 3£ ,  169,  -i 

,  "3460  -  3550 

"  ,  3253 

3560 

DATA 

160,  133, 

£51,  163,  132, 

133 

3570 

DATA 

£5£,  160, 

0,  32 ,  131,  192 

3530 

DATA 

169,  64, 

133,  £51,  169, 

133 

3590 

DATA 

133,  £52, 

180,  0,  3£ ,  181 

3600 

DATA 

132,  169, 

£24,  133,  £51, 

169 

3610 

DATA 

133,  133, 

£5£ ,  160,  0,  3£ 

3620 

DATA 

131,  192, 

169,  128,  133, 

£51 

3630 

DATA 

169,  134, 

133,  £52,  160, 

0 

3640 

DATA 

3£ ,  181, 

1 3£ ,  169,  3£ ,  133 

3650 

DATA 

£51,  169, 

135,  133,  £52, 

160 

,  "3560  -  3650' 

'  ,  9059 

3660 

□  ATA 

0,  3£,  181,  132,  168,  19£ 

3670 

DATA 

133,  £51, 

169,  135,  133, 

£5£ 

3630 

DATA 

160,  0,  32,  131,  19£,  16£ 

3690 

DATA 

0,  168,  0 

,  133,  £51,  163 

3700 

DATA 

132,  133, 

£5H,  160,  33, 

169 

3710 

DATA 

160,  145, 

£51,  £00,  145, 

251 

3  720 

DATA 

£32,  ££4 , 

£4,  £40,  19,  169 

3730 

DATA 

40,  24,  101,  251,  176,  5 

3740 

DATA 

133,  251, 

76,  147,  1 9£ , 

133 

3750 

DATA 

£51,  £30, 

£52,  76,  147, 

192 

3760 

DATA 

86,  169, 

160,  145,  £51, 

£00 

3770 

DATA 

1 92 ,  40, 

240,  3,  76,  131 

3780 

DATA 

132,  96, 

00,  £16 

3790 

DATA 

-£,  “3660 

-  3730 ",  11165 

,  -1 

3300 

DATA 

173,  159, 

£07,  £01,  170, 

£40 

3810 

DATA 

3,  32,  19 

,  £00,  163,  £55 

56,  233, 

1,  133,  £54,  -i 

£53, 

153, 

£46,  £07,  165 

153,  £47, 

£07,  135,  £08 

153, 

£24  , 

£07,  3£ ,  £08 

96  , 

185  , 

£46,  £07,  £4 

40  , 

1  76, 

10,  133,  £53 

£47,  207, 

133,  £54,  76 

4220  DATA  240,  12,  201,  34,  240,  11 
4230  DATA  24,  36,  76,  16,  197,  76 
4240  DATA  64,  197,  76,  112,  197,  76 
4250  DATA  160,  137,  185,  24S ,  £07,  56 

4260  DATA  233,  40,  144,  10,  133,  253 

4270  DATA  135,  247,  207,  133,  254,  76 
4230  DATA  44,  197,  133,  253,  185,  247 

4290  DATA  2f 

4300  DATA  1( 

43  10  DATA  21 

4320  DATA  £( 

4330  DATA  1! 

4340  DATA  11 

4350  DATA  1! 

4360  DATA  32,  197,  133,  253,  185,  £47 

4370  DATA  207,  24,  105,  1,  133,  £54 
4380  DATA  165,  253,  153,  £46,  £07,  165 
4380  DATA  £54,  153,  £47,  £07,  135,  208, 
,  "4300  -  4390",  10520 

4400  DATA  £07,  153,  £24,  £07,  32,  218 

4410  DATA  197,  96,  185,  £46,  £07,  £4 
4420  DATA  105,  1,  176,  10,  133,  £53 

4430  DATA  185,  £47,  £07,  133,  £54,  76 

4440  DATA  140,  197,  133,  £53,  185,  £47 

4450  DATA  207,  24,  105,  1,  133,  254 
4460  DATA  165,  253,  153,  £46,  £07,  165 

4470  DATA  £54,  153,  £47,  £07,  135,  £08 

4480  DATA  £07,  153,  2£4 ,  £07,  3£ ,  ££8 
4480  DATA  197,  96,  185,  246,  £07,  56 , -£ 
4500  DATA  £33,  1,  144,  10,  133,  £53 
4310  DATA  135,  £47,  £07,  133,  £54,  76 

4520  DATA  188,  197,  133,  £53,  185,  £47 

4530  DATA  £07,  56,  233,  1,  133,  £54 
4540  DATA  165,  £53,  153,  £46,  £07,  165 
153,  £47,  £07,  135,  £03 


4550  DATA  =^4 

462:0  DATA  17 


4560  DATA  cJ7,  153,  ££4 ,  207,  3£ ,  253 


4570 

DATA 

187, 

86,  185 

,  1  , 

£03, 

56 

4580 

DATA 

£33, 

8,  153, 

1,  £08, 

96 

4590 

DATA 

135, 

1,  £03, 

24  , 

105  , 

8  , 

4600 

DATA 

153  , 

1,  £03, 

36  , 

135  , 

0 

48  10 

DATA 

£08, 

£4,  105 

,  s. 

176, 

4 

4620 

DATA 

153, 

0,  £08, 

36  , 

153, 

0 

4830 

DATA 

£03, 

173,  16 

,  £08 

,  13 

,  178 

4640 

DATA 

£07, 

141,  16 

,  £08 

,  96 

,  185 

3820  DATA  141,  £,  ££0,  185,  £03,  £01 
3830  DATA  41,  £08,  5,  163,  33,  76 
3840  DATA  56,  196,  201,  44,  £08,  5 
3350  DATA  169,  36,  76,  56,  196,  £01 
38S0  DATA  42,  £08,  5,  168,  34,  76 

3S70  DATA  56,  196,  £01,  50,  £08,  5 
3880  DATA  169,  37,  76,  56,  196,  32 

3890  DATA  158,  £00,  16£,  £54,  14£,  192,  -£ 

,  "3800  -  3390"  ,  7658 


207, 

162,  1, 

160,  0,  140 

160, 

£07,  14£ 

,  176,  £07,  153 

£08, 

£07,  32, 

1,  183,  144 

52, 

3£,  £36, 

196,  169,  17 

14  1, 

4,  212, 

163,  16,  141 

4,  SIE,  3£ ,  38,  £00,  160 

4  1  , 

173,  248, 

£07,  133,  £53 

173, 

£47,  £07 

,  133,  £54,  177 

£53, 

£05,  158 

,  £07,  £40,  3 

169, 

0,  141, 

157,  207,  76,  -I 

133 

,  £07 

,  141,  16,  £03 

:  ,  96 

185 

,  ££4 

,  £07 ,  £01,  33 

,  £08 

3, 

76,  183,  188,  £01, 

36 

£03 

,  3, 

76,  183,  ISS, 

1 92 

£  , 

£08, 

3,  76,  149,  198 

192 

,  s. 

£08,  3,  76,  149 

138 

,  173 

,  £7,  £12,  56, 

£33 

128 

,  144 

,  5,  169,  33, 

76 

68  , 

198  , 

169,  36,  153, 

203 

£07 

,  32, 

1,  199,  144, 

3 

76, 

£55, 

198,  185,  224 

,  20? 

153 

,  £03 

,  £07,  3£ ,  1, 

133, 

144 

,  3, 

78,  £55,  198, 

£0  1 

37, 

£03, 

11,  169,  34, 

153 

£08 

,  £07 

,  3£ ,  1,  199, 

76 

"3300  -  3980",  8850 


4000 

DATA 

131  , 

196 

,  169 

CU 

CO 

145 

,  £53 

40  10 

DATA 

163, 

1  , 

141, 

157, 

£07  , 

160 

40£0 

DATA 

£  ,  140 , 

160, 

£07, 

1 62  , 

253 

4030 

DATA 

1 4£  , 

1 3£ 

,  £07 

,  16£ 

,  2  , 

142 

4040 

DATA 

176, 

£07 

,  32, 

22  , 

198  , 

3£ 

4050 

DATA 

£36, 

136 

,  160 

,  1  , 

32, 

72 

4060 

□ATA 

£00, 

1S0 

,  4, 

140, 

160  , 

£07 

4070 

DATA 

1 62  , 

£51 

,  142 

,  19£ 

,  £07,  18; 

40S0 

□  ATA 

4,  142, 

176, 

£07  , 

32, 

2£ 

4030 

DATA 

138, 

3£, 

£36  , 

136  , 

160 

,  £  , 

,  "4000  -  4030",  8283 

4100  DATA  3£,  7£ ,  £0O,  160,  6,  140 


94 


4650  DATA  0,  £08,  56,  £33,  8,  144 
4660  DATA  4,  153,  0,  £08,  96,  153 
4670  DATA  0,  208,  173,  16,  £08,  45 

46S0  DATA 
4630  DATA 
4700  DATA 
4710  DATA 
4720  DATA 
4730  DATA 
4740  DATA 
4750  DATA 
4760  DATA 
4770  DATA 
4780  DATA 
4730  DATA 
4800  DATA 
4310  DATA 
4820  DATA 

4330  DATA  £55,  138,  £01,  34,  £08,  11 
4340  DATA  163,  37,  153,  203,  £07,  3E 
4350  DATA  1,  133,  76,  £55,  133,  £01 

4860  DATA  33,  £08,  11,  169,  36,  153 

4370  DATA  £03 ,  207,  32,  1,  199,  76 
4830  DATA  £55,  138,  163,  33,  153,  208 

4390  DATA  £07,  32,  1,  199,  76,  £55,  -£ , 

4900  DATA 
4910  DATA 
49£0  DATA 
4330  DATA 
4940  DATA 
4950  DATA 
4960  DATA  169,  36,  76,  68,  133,  185 

4370  DATA  ££4 ,  £07,  153,  £08,  £07,  3£ 

4930  DATA  1,  189,  144,  3,  76,  £55 

4930  DATA  19S,  173,  £7,  £1£,  58,  £33, 

5000  DATA  1£8,  144,  S,  169,  37,  153 

5010  DATA  £0S,  207,  76,  E£4 ,  198,  169 

50£0  DATA  34,  153,  £08,  £07,  3H ,  1 


173 

,  £47,  £07 

,  56, 

£49 

£07 

,  144,  17, 

£40  , 

3 

1 8£  , 

198,  173, 

£46, 

£07 

£43, 

£48,  £07, 

144  , 

3 

18E  , 

138,  £34, 

£34, 

168 

76, 

63,  183,  £34,  £34 

-£ 


!,  "4£00  -  4290",  8499 

-2 
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,  "4400-4490",  10134 

"4500  -  4590",  9453 

2,  "4600-  4630",  7254 

,  "4700  -  4790",  7654 

"4300  -  4890",  7972 

2,  ■4800—4930",  3£43 

64er-onliue. 
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5030 

DATA 

199, 

144 

,  3,  76,  £55,  133 

5370 

DATA 

-2,  "5300  - 

5040 

DATA 

201  , 

37, 

£08,  11,  169,  34 

5330 

REM  MANN  STEHEND 

5050 

DATA 

153, 

£03 

,  £07,  33 ,  1,  199 

5390 

DATA 

000,060,000 

5060 

DATA 

76, 

£55, 

198,  169,  37,  153 

6000 

DATA 

000 ,£55  ,000 

5070 

DATA 

£03, 

£07 

,  32,  1,  193,  56 

6010 

DATA 

000  ,0£0 ,000 

5080 

DATA 

96, 

185  , 

£08,  £07,  £01,  33 

6020 

DATA 

000 ,02 1 ,000 

5090 

DATA 

£40, 

14  , 

£01,  36,  £40,  13,  -£,  ‘5000  -  5030",  7354 

6030 

DATA 

000 ,020,000 

5100 

DATA 

£01  , 

37, 

£40,  12 ,  £01,  34 

6040 

DATA 

000 ,020,000 

51  10 

DATA 

£40, 

1  1  , 

£4,  96,  76,  153 

6050 

DATA 

000,170,000 

5120 

DATA 

199, 

76, 

£06,  199,  76,  9£ 

6360 

DATA 

002 ,170,128 

5130 

DATA 

133, 

135 

,  £46,  207,  56,  £33 

8070 

DATA 

010,040, 160 

4346 ,  -1 


5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


1,  144,  10,  133,  £51,  185 
247,  207,  133,  252,  76,  59 

199,  133,  251,  185,  247,  207 
5G,  233,  1,  133,  252,  140 

18,  201,  160,  0,  177,  251 

£01,  160,  £40,  19,  160,  40,  -£ ,  “5100  -  5190“,  8653 

177,  251,  £01,  1G0,  £40,  11 


6080  DATA  008,040,036 
6030  DATA  004,040,000 
6100  DATA  000,040,000 
6110  DATA  000,060,000 
6120  DATA  000,060,000 
6130  DATA  000,012,000 
6140  DATA  000,012,000 


80, 

177, 

251  , 

£01  , 

160 

6150 

DATA 

000,012,000 

3  , 

78,  3 

,  £00 

,  76 

6160 

DATA 

000 ,012, 000 

£00, 

185, 

246, 

£07  , 

£4 

6170 

DATA 

000 , 0 1 £ , 000 

105,  1,  176,  10,  133,  £51 
135,  247,  207,  133,  £52,  76 
120,  133,  133,  251,  185,  247 

207,  24,  105,  1,  133,  258 

140,  18,  £01,  160,  £ ,  177 

£51,  £01,  160,  £40,  13,  160,  -£ ,  "5£00  -  5£30" ,  3300 

42,  177,  251,  201,  160,  £40 


5310 

DATA 

1  1  , 

160, 

82,  177, 

£51,  £01 

53£0 

DATA 

160 

,  240 

,  3,  76, 

3,  £00 

5330 

DATA 

76  , 

11 ,  ; 

£00,  135, 

246,  207 

5340 

DATA 

56, 

233  , 

40,  144, 

10,  133 

5350  DATA  £51 


135,  £47,  207,  133,  252 

135 


5360 

DATA 

76, 

18  1  , 

189  , 

133, 

251 

5370 

DATA 

247, 

207, 

56  , 

£33, 

1  , 

5380 

DATA 

252, 

140, 

18, 

201  , 

180 

5330  DATA  177,  £51,  £01,  160,  £40,  11,  -£ , 

5400  DATA  £00,  132,  3,  240,  3,  76 
5410  DATA  186,  139,  76,  3,  £00,  76 
54£0  DATA  11,  £00,  185,  £46,  £07,  £4 


•■5300  -  5330  ‘ 


5430 

DATA 

105,  40, 

176  , 

5440 

DATA 

185,  247 

,  £07 

5450 

DATA 

234,  199 

,  133 

5460 

DATA 

£07,  £4, 

105  , 

5470 

DATA 

140,  18, 

£01  , 

5480 

DATA 

251 ,  201 

,  160 

5490 

DATA 

192,  83, 

£40  , 

5500 

DATA 

199,  76, 

3,  ££ 

5510 

DATA 

£00,  172 

,  18 , 

5520 

DATA 

£07,  36, 

96,  . 

5530 

DATA 

185,  £03 

,  £07 

5540 

DATA 

170,  141 

,  159 

5550 

DATA 

169,  37, 

153, 

,  80,  177 
0,  11,  £00 
40,  3,  76,  £33,  -£ , 


£07,  £4,  36,  163 

7,  160,  £ 

,  £07,  160 


"5400  -  5490",  3733 

wMm  onun^*' 
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5560 

DATA 

6  , 

153  , 

224  , 

207, 

169, 

34 

5570 

DATA 

160 

,  4  , 

153, 

2£4  , 

207, 

160 

5580 

DATA 

8  , 

153, 

224, 

207, 

169, 

£55 

5530 

DATA 

141 

,  14 

,  212 

,  14  1 

,  15, 

£12 

-£,  "5500 


5590",  S4£7 


5600  DATA  169,  1£3,  141,  18,  £1£,  169 

5610  DATA  15,  141,  £4,  21£,  169,  0 

56£0  DATA  141,  157,  £07,  96,  185,  248 
5630  DATA  135,  £01,  15,  £03 ,  £,  169 
5640  DATA  1£,  £4,  105,  1,  153,  £48 

5650  DATA  135,  36,  185,  ££4 ,  £07,  133 

5660  DATA  £53,  201,  34,  240,  42,  201 
5670  DATA  37,  £40,  19,  173,  248,  135 


5630 

DATA 

201  , 

251  , 

£40, 

6,  169,  251 

5690 

DATA 

14  1, 

248  , 

135, 

96, 

169,  252 

5700 

DATA 

141  , 

243, 

135, 

96, 

173,  £48 

5710 

DATA 

135, 

£01  , 

247, 

£40  , 

S,  169 

5720 

DATA 

247, 

141  , 

£48, 

135, 

9S ,  169 

5730 

DATA 

£48, 

141  , 

£48, 

135, 

98,  173 

5740 

DATA 

£48  , 

135, 

20  1  , 

£49, 

240,  6 

5750 

DATA 

169, 

£49, 

141, 

£48, 

135,  96 

5760 

DATA 

169, 

250, 

141  , 

£48, 

135,  96 

5770 

DATA 

169, 

224  , 

141  , 

£  ,  £20,  173 

5780 

DAT« 

0,  220,  41 

.  ,  1  » 

208  , 

5 

-2,  “5600  -  5630 " ,  3665 


5796  DATA  169,  33,  76,  0,  201,  173,  -2,  "5700  -  5790",  3326 

5800  DATA  0,  ££0,  41,  2,  £08,  5 

5810  DATA  169,  36,  76,  0,  £01,  173 

5820  DATA  0,  220,  41,  4,  208,  5 

5830  DATA  163,  34,  76,  0,  £01,  173 

5840  DATA  0,  £20,  41,  8,  208,  5 

5350  DATA  163,  37,  76,  0,  201,  173 

5860  DATA  1,  £20,  41,  1,  £08,  5 

5870  DATA  163,  33,  76,  0,  £01,  173 

5880  DATA  1,  ££0 ,  41,  2,  208,  5 

5890  DATA  163,  36,  76,  0,  201,  173,  -2,  "5300  -  5890",  5658 

5900  DATA  1,  £20,  41,  4,  £08,  5 

5910  DATA  169,  34,  76,  0,  201,  173 

5320  DATA  1,  £20,  41,  8,  £08,  14 

5930  DATA  169,  37,  141,  13,  £01,  169 

5340  DATA  £55,  141,  2,  220,  173,  18 

5350  DATA  £01,  36,  163,  £55,  141,  £ 

5960  DATA  £20,  96, 


6180  DATA  000,008,000 

6190  DATA  000,010,000 

6200  REM  MANN  GEHEND  RECHTS 

6210  DATA  000,060,000 

62£0  DATA  000,255,000 

6230  DATA  000,020,000 

8240  DATA  000,021,000 

6£50  DATA  000,020,000 

6£60  DATA  000,020,000 

6270  DATA  000,042,000 

6230  DATA  000,042,160 

6280  DATA  000,040,164 

6300  DATA  000,040,000 

6310  DATA  000,040,000 

6320  DATA  000,040,000 

633D  DATA  000,040,000 

6340  DATA  000,060,000 

6350  DATA  000,063,000 

6360  DATA  000,051,192 

6370  DATA  000,048,192 

6330  DATA  000,048,192 

6390  DATA  000,043,128 

6400  DATA  000,032,160 

6410  DATA  000,040,000 

6420  REM  MANN  STEHEND  LINKS 

6433  DATA  000,060,000 

6440  DATA  000,255,000 

6450  DATA  000,020,000 

6460  DATA  000,084,000 

6470  DATA  000,020,000 

6430  DATA  000,020,000 

6480  DATA  000,170,000 

6500  DATA  002,170,128 

6510  DATA  010,040,160 

6520  DATA  024,040,032 

6530  DATA  000,040,016 

6540  DATA  000,040,000 

6550  DATA  000,040,000 

6560  DATA  000,060,000 

6570  DATA  000,060,000 

6580  DATA  000,048,000 

6590  DATA  000,048,000 

3600  DATA  000,048,000 

8610  DATA  000,048,000 

6620  DATA  000,03£,000 

6630  DATA  000,160,000 

6640  REM  MANN  GEHEND  LINKS 

6650  DATA  000,060,000 

6660  DATA  000,255,000 

6670  DATA  000,020,000 

6680  DATA  000,084,000 

6690  DATA  000,020,000 

6700  DATA  000,020,000 

8710  DATA  000,168,000 

S7£0  DATA  010,168,000 

6730  DATA  026,040,000 

S740  DATA  000,040,000 

675©  DATA  000,040,000 

6760  DATA  000,040,000 

6770  DATA  000,040,000 

6780  DATA  000,060,000 

6790  DATA  000,252,000 

6800  DATA  003,216,000 

6310  DATA  003,012,000 

63£0  DATA  003,012,000 

6330  DATA  002,012,000 

6840  DATA  010,003,000 

6350  DATA  000,040,000 

6860  REM  MANN  STEIGEND  RECHTS 

6370  DATA  000,060,000 

6880  DATA  000,255,016  A  ^ 

6890  DATA  000,020,032 

8300  DATA  000,020,032 


Das  Listing 
wird  auf 
Seite  92 
vorgesetzt 
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Das  große  Floppy-Buch 

Bei  dem  großen  Floppy- 
Buch  handelt  es  sich  um  ge¬ 
nau  326  Seiten  geballte  Infor¬ 
mation  über  die  VC 
1541-Floppy  von  Commodo- 
re,  Diese  Diskettenstation 
wurde  speziell  für  die  Home¬ 
computer  im  Sinne  von  Pro¬ 
blembeschreibung,  VC  20 
und  Commodore  64  ent¬ 
wickelt.  Der  schon  etwas 
fortgeschrittene  Anwender, 
der  seine  VC  1541 -Einheit  in¬ 
tensiver  als  nur  zum  Abspei¬ 
chern  von  Programmen  nut¬ 
zen  will,  erfährt  durch  das 
Originalhandbuch  leider 
nur  recht  wenig  Unterstüt¬ 
zung.  Das  große  Floppy- 
Buch  deckt  hier  also  einen 
echten  Bedarf. 


Englisch  Szczepanowski 


Bas  große 

Floppy- 

Buch 

Disketten-Programmierung 
mit  COMMODORE  Computern 
für  Anfänger,  Fortgeschrittene 
und  Profis 


EIN  DATA  BECKER  BUCH 


Neben  der  Beschreibung 
aller  Floppy-Systembefehle 
zum  Filehandling  werden  in 
zwei  ausführlichen  Kapiteln 
die  Konzepte  der  sequentiel¬ 
len  und  der  relativen  Daten¬ 
speicherung  erläutert.  Ein 
Abschnitt  über  »Program¬ 
mierung  für  Fortgeschritte¬ 
ne«  zeigt  Möglichkeiten  zum 
direkten  Zugriff  auf  einzelne 
Sektoren  einer  Diskette  und 
auf  das  Betriebssystem 
(DOS)  der  Diskettenstation. 


Natürlich  wird  auch  der 
technische  Aufbau  und  die 
interne  Verwaltung  einer 
Floppy-Station  beschrieben, 

Neben  einer  Unzahl  von 
kleineren  Beispielprogram¬ 
men  findet  man  unter  ande¬ 
rem  auch  eine  komplette 
Adreßverwaltung,  ein 
Disketten-Kopierprogramm 
und  einen  Disk-Monitor.  Ein 
vollständiges,  kommentier¬ 
tes  Disassemblerlisting  des 
DOS  2.6  und  eine  Vielzahl 
nützlicher  Tips  und  Tricks 
für  das  Arbeiten  mit  diesem 
DOS  runden  das  große 
Floppy-Buch  ab,  das  infolge 
der  durchweg  leicht  ver¬ 
ständlichen  Darstellungs¬ 
weise  nicht  nur  für  den  Profi 
interessant  erscheint,  (ev) 

Englisch/Szczepanowski:  Das  große 
Floppy-Buch,  326  Seiten,  Data  Becker 
GmbH,  Düsseldorf  1983.  49 Mark. 

Commodore  64 
Der  Computer  für 
Einsteiger  und  Aufsteiger 

Das  Buch  wendet  sich  an 
den  absoluten  Computer¬ 
neuling,  dem  Begriffe  wie 
»Datenverarbeitung«  und 
»Programmierung«  wenig 
oder  gar  nichts  sagen  und 
der  sich  mit  seinem  neuen 
Commodore  64  auch  nur  auf 
der  Ebene  der  Anwender¬ 
programmierung  (also  ohne 
weitere  Kenntnisse  über 
Bits,  Bytes  oder  Speicher¬ 
adressen)  beschäftigen  will. 

Wer  also  ein  tiefergehen¬ 
des  Verständnis  des  C  64 
sucht  oder  sich  Tips  und 
Tricks  für  die  Programmie¬ 
rung  (oder  gar  Tabellen  spe¬ 
zieller  POKEs  und  PEEKs) 
erhofft,  dem  kann  dieses 
Buch  nicht  weiterhelfen. 

Dem  Neuling  jedoch  wird 
das  Programmieren  von  den 
Grundlagen  her  beige¬ 
bracht,  und  zwar  Program¬ 


mierung  richtig  verstanden 
im  Sinne  von  Problembe¬ 
schreibung,  Analyse,  Fin¬ 
den  eines  Algorithmus  und 
schließlich  Codierung  des¬ 
selben  in  einer  Program¬ 
miersprache,  zum  Beispiel  in 
Basic.  Nach  Einübung  die¬ 
ser  V  orgehensweise  anhand 
einiger  kleiner  Beispiele 
wird  schließlich  die  Sprach- 
erweiterung  Simons  Basic 
für  den  C  64  vor  gestellt.  Man 
erfährt  hier  einiges  über  die 
im  Simons  Basic  enthaltenen 
Sprachelemente  zur  struktu¬ 
rierten  Programmierung. 
Der  Abschnitt  über  Unter 
Programmtechnik  im  Simons 
Basic  ist  dabei  ermüdend 
lang  geraten.  Über  volle  6 
Seiten  wird  an  trivialen  Bei¬ 
spielen  im  wesentlichen  vor¬ 
geführt,  daß  ein  Unterpro¬ 
gramm  immer  wieder  ins 
Hauptprogramm  zurück¬ 
kehrt.  Aber  dazu  braucht 
man  wirklich  kein  Simons  Ba¬ 
sic,  das  funktioniert  genauso 
mit  GOSUB. 


Insgesamt  gesehen  bleibt 
der  Teil  des  Buches,  der  sich 
mit  dem  Simons  Basic  und 
strukturierter  Programmie¬ 
rung  befaßt,  leider  nur 
Stückwerk.  Dieser  Abschnitt 
kann  höchstens  einen  er¬ 
sten,  flüchtigen  Einblick  dar¬ 
stellen.  Unbefriedigend  ist 
natürlich  auch,  daß  der  An¬ 
wender,  der  nicht  über  Si¬ 
mons  Basic  verfügt,  hier  völ¬ 
lig  allein  gelassen  wird.  Im¬ 
merhin  gäbe  es  ja  auch  über 
strukturierte  Programmie¬ 
rung  im  Standard-Basic  eini¬ 
ges  zu  sagen.  Der  erste  Teil 


des  Buches  ist  demgegen¬ 
über  als  Programmierlehr¬ 
gang  für  Anfänger  recht  gut 
gelungen  —  aber  wirklich 
nur  für  Anfänger.  (ev) 

Hans  Riedel  /  Franz  Quinke:  Commodore 
64,  160 Seiten,  Friedrich  Kiehl  Verlag  1983, 
ISBN  3-470-80421-6,  49,80  Mark. 

VC  20- 

Anwenderhandbuch 

Endlich  ein  Buch  über  den 
VC  20,  das  gleichermaßen 
den  Anfänger  wie  den  fort¬ 
geschrittenen  Anwender  an¬ 
spricht.  Neben  einer  aus¬ 
führlichen  und  leicht  ver¬ 
ständlichen  Einführung  in 
die  Basic-Programmierung 
findet  der  Anfänger  hier 
auch  eine  Fülle  von  Tips  und 
Tricks,  um  die  Hard-  und 
Softwareeigenschaften  des 
VC  20  optimal  für  eigene 
Programme  zu  nutzen.  Ein 
ganzes  Kapitel  beschäftigt 
sich  mit  den  Möglichkeiten 
zur  Steuerung  von  Spielen 
mittels  Joystick,  Paddle  oder 
Tastatur.  Ein  anderer  Ab¬ 
schnitt  beschreibt  Entwurf 
und  Realisierung  benutzer¬ 
freundlicher  Inpufroutmen. 

Ist  man  mit  den  Grundla¬ 
gen  seines  VC  20  einigerma¬ 
ßen  vertraut,  dann  bieten 
die  Kapitel  über  die  Erzeu¬ 
gung  vcn  Grafiken  und  Tö¬ 
nen  einen  tieferen  Einblick 
in  das  Innenleben  des  V olks- 
computers.  Erklärt  und  an¬ 
hand  von  Beispielprogram¬ 
men  demonstriert  werden 
die  Erzeugung  selbstdefi¬ 
nierter  Zeichen  und  —  als 
Anwendung  hiervon  —  die 
Programmierung  der  hoch¬ 
auflösenden  Grafik  und  des 
Vielfarben-Modus.  Sehr  aus¬ 
führlich  dargestellt  ist  auch 
die  Realisierung  spezieller 
Toneffekte  wie  Schwebun¬ 
gen,  Vibrato  oder  Tremolo. 
Bemerkenswert  ist  die  recht 
umfangreiche  Behandlung 
der  wichtigsten  Peripherie¬ 
geräte.  Der  Bogen  spannt 
sich  hier  vom  Farbband¬ 
wechsel  beim  VC  1515-Gra- 
fikdrucker  bis  zum  Direktzu¬ 
griff  auf  einzelne  Sektoren 
bei  der  1540-Floppy. 

Zahlreiche  Tabellen,  Dia¬ 
gramme  und  Fotos  tragen  ei¬ 
niges  zum  guten  Verständnis 
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des  dargebotenen  Stoffes 
bei.  Ein  umfangreicher  An¬ 
hang  enthält  die  Speicher¬ 
belegung  des  VC  20,  die 
Funktionen  des  6560-Video- 
Chips,  alle  Basic-Statements 
und  Funktionen  (auch  für 
Diskettenbetrieb)  und  ande¬ 
re  Tabellen. 


Nach  näheren  Informatio¬ 
nen  über  die  verschiedenen 
Speicher-  und  Spracherwei- 
terungsmodule  sucht  man  im 
VC  20- Anwenderhandbuch 
jedoch  vergebens.  Eben¬ 
falls  nicht  behandelt  wird 
der  Zugriff  auf  die  Maschi¬ 
nenebene 

Einige  sprachliche  Unge¬ 
reimtheiten  sind  vermutlich 
auf  die  Übersetzung  aus 
dem  Amerikanischen  zu¬ 
rückzuführen.  So  ist  zum  Bei¬ 
spiel  die  Rede  von  »weichen 
.Sektoren«  auf  einer  Diskette 
(gemeint  sind  durch  Softwa¬ 
re  erzeugte  Sektoren)  und 
zum  SYS-Befehl  findet  man 
als  Erklärung:  »übergibt  an 
ein  Subsystem«  (was  immer 
das  sein  mag). 

Alles  in  allem  handelt  es 
sich  bei  dem  Buch  jedoch 
um  eine  recht  gute  Einfüh¬ 
rung  für  den  Anfänger,  aber 
auch  der  fortgeschrittene 
Benutzer  wird  hier  wahr¬ 
scheinlich  noch  einiges  an 
neuem  Wissen  finden.  In  je¬ 
dem  Fall  ist  das  Buch  als  um¬ 
fangreiches  Nachschlage¬ 
werk  zum  VC  20-Sy stem  zu 
empfehlen.  (ev) 

Johnlleilborn  /  Ran  Talbott  VC  20  Anwon 
derhandbuch  388  Seiten,  McCraw-Hill 
Book  Company,  Hamburg  1983,  ISBN 
3-89028-004-8,  32,-  Mark. 


Commodore 
64-Programmieren 
leicht  gemacht 

Dieses  Buch  ist  gedacht 
für  den  Neuling,  der  sich  ei¬ 
nen  Commodore  64  gekauft 
hat  oder  kaufen  möchte.  Für 
erfahrene  Aufsteiger,  die 
von  einem  anderen  Gerät 
kommen,  sollte  es  ebenfalls 
von  Nutzen  sein.  Das  von 
den  Autoren  gesteckte  Ziel 
ist  klar;  es  geht  darum,  in 
verständlicher  Form  die 
Haupteigenschaften  des 
Commodore  64  und  seiner 
Programmiersprache  Basic 
zu  beschreiben.  Das  Buch 
umfaßt  eine  große  Zahl  Pro¬ 
grammbeispiele,  von  Test¬ 
routinen  für  neue  Befehle 
bis  hin  zu  längeren  Pro¬ 
grammen  für  Spiele,  inter¬ 
essante  Grafikdisplays, 
Umgang  mit  Daten  auf  Ton¬ 
bandkassetten,  Musik  und 
Spritesteuerung.  Die  mei¬ 
sten  Kapitel  enthalten  eine 
oder  mehrere  Aufgaben, 
die  Ihre  Fortschritte  prüfen 
und  zusätzliche  Vorschläge 
liefern.  Am  Ende  des  jewei¬ 
ligen  Kapitels  stehen  die  Lö¬ 
sungen  der  Aufgaben  und 
können  damit  als  Zusatzin¬ 
formation  genutzt  werden. 
Eine  wichtige  (und  ziemlich 
ungewöhnliche)  Eigenschaft 
dieses  Buches  sind  mehrere 
Kapitel  über  Debugging 
(Fehlersuche):  Wie  man  da¬ 
hinterkommt,  warum  ein 
Programm  nicht  läuft,  und 
den  Fehler  behebt.  Jeder, 
der  selber  Programme 
schreibt,  wird  diese  Kapitel 
als  besonders  nützlich  emp¬ 
finden.  Es  werden  auch  ein 
paar  Empfehlungen  für  das 
Verfassen  gut  strukturierter 
Programme  —  vor  allem  für 
die  sinnvolle  Nutzung  von 
Unterprogrammen  —  gege¬ 
ben,  um  das  Programm  in 
überschaubare  Blöcke  auf¬ 
zuteilen.  Ein  Beispiel  dazu 
habe  ich  in  dem  Artikel 
»Strukturiertes  Programmie¬ 
ren«  in  dieser  Ausgabe  ver¬ 
wendet.  Dieses  Buch  befaßt 
sich  mehl  mit  allen  Möglich¬ 
keiten  des  Commodore  64. 
Zum  Beispiel  wird  der  Um¬ 
gang  und  die  Arbeit  mit 


dem  Diskettenlaufwerk 
nicht  behandelt,  wohl  aber, 
wie  man  Daten  auf  Kassette 
unterbringt.  Ich  sehe  dieses 
Buch  aber  für  den  Anfänger 
als  nützlich  an.  Es  hilft  dem 
Computer-  und  Commo- 
dore-Neuling  sicher  und 
oft  auch  in  einer  humorvol¬ 
len  Weise  auf  die  Beine.  Ich 
kann  es  deshalb  empfehlen, 
(gk) 

lan  Stewart.  Robin  Jones:  Commodore  64 
—  Programmieren  leicht  gemacht,  264  Sei¬ 
ten,  Birkhäuser  1984,  ISBN  3-7643-1588-1, 
Preis  49  Mark. 

Besser  programmieren 
mit  dem  VC  20 

Das  Buch  zum  Hand¬ 
buch«,  wie  es  im  Untertitel 
genannt  wird,  wendet  sich  in 
erster  Linie  an  den  Compu¬ 
terneuling  und  will  diesem 
über  das  Handbuch  hinaus¬ 
gehende  Hilfestellung  bei 
der  Programmierung  seines 
Volkscomputers  geben. 

Thematisch  gibt  es  drei 
Schwerpunkte:  Das  VC 
20-Basic,  die  hochauflösen¬ 
de  Grafik  und  Anregungen 
für  die  Erstellung  eigener 
Software,  hauptsächlich  aus 
den  Bereichen  Grafik,  Spie¬ 
le  und  (naturwissenschaftli¬ 
che)  Simulationen.  Die  Vor¬ 
schläge  gehen  jedoch  kaum 
über  das  Niveau  reiner  Pro¬ 
grammierübungen  hinaus 
(Quiz,  Nimm,  Fibonacci- 
Zahlen,  Tapetenmuster  und 
so  weiter). 

Recht  informativ  ist  der 
Abschnitt  über  die  Realisie¬ 
rung  von  hochauflösenden 
Grafiken  mit  oder  ohne 
Super-Expander,  interes¬ 
sant  auch  die  mit  kleinen  Bei- 
spielprogrammen  beschrie¬ 
benen  Tricks,  um  Grafiken 
auf  Band  oder  Disk  zu  retten 
oder  als  Hardcopy  auf  ei¬ 


nem  VC  1525-Drucker  aus¬ 
zugeben. 

Leider  wirkt  die  Darstel¬ 
lung  streckenweise  etwas 
konfus  und  unübersichtlich. 
So  erfährt  der  staunende  Le¬ 
ser  zum  Beispiel,  daß  die 
Wertzuweisung  mittels 
Gleichheitszeichen  »zu  den 
größten  Handicaps  von  Ba¬ 
sic«  gehört  oder  daß  der 
Computer  als  Ergebnis  ei¬ 
nes  logischen  Vergleichs 
A  =  B  den  Wert  —1  liefert, 
»wenn  über  A  und  B  noch 
nichts  bekannt  ist«.  Speziell 
bei  den  Abschnitten  über 
die  hochauflösende  Grafik 
wäre  auch  eine  ausführli¬ 


chere  und  systematischere 
Darstellung  angebracht.  Die 
Ausführungen  über  das  VC 
20-Basic  gehen  kaum  über 
die  des  Handbuchs  hinaus. 

Fazit:  Für  den  Profi  bietet 
das  Buch  zuwenig,  für  den 
Neuling  erscheint  es  jedoch 
trotz  einiger  Mängel  in  der 
Darstellung  dann  geeignet, 
wenn  er  sich  für  den  Einsatz 
des  VC  20  im  Bereich  Schu¬ 
le/Ausbildung  interessiert. 

(ev) 

Dr.  Norben  Treita  Besser  programmieren 
mit  dem  VC  20,  186  Seiten,  Lehrmittelver¬ 
lag  W.  Hagemann  1983,  ISBN3-544-53001-0, 
18,30  Mark, 
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Wollen  Sie  einen  gebrauchten  Computer  ver¬ 
kaufen  oder  erwerben?  Suchen  Sie  Zubehör? 
Haben  Sie  Software  anzubieten  oder  suchen 
Sie  Programme  oder  Verbindungen?  Die  FUND¬ 
GRUBE  von  64'er  bietet  allen  Computerfans  die 
Gelegenheit,  für  nur  DM  5,—  eine  private  Klein¬ 
anzeige  mit  bis  zu  5  Zeilen  Text  in  der  Rubrik 
Ihrer  Wahl  aufzugeben.  Und  so  kommt  Ihre  pri¬ 
vate  Kleinanzeige  in  die  FUNDGRUBE  der  Juni- 
Ausgabe  (erscheint  am  18.  Mal  84):  Schicken 
Sie  Ihren  Anzeigentext  bis  zum  24.  April  84  (Da¬ 
tum  des  Poststempels  und  Anzeigenschluß)  an 
»64'er«.  Spatereingehende  Aufträge  werden  in 
der  Juli-Ausgabe  (erscheint  am  22.  Juni  84)  ver¬ 
öffentlicht. 


Am  besten  verwenden  Sie  dazu  die  vorbereitete 
Auftragskarte  am  Anlang  des  Heftes.  Bitte  be¬ 
achten  Sie:  Ihr  Anzeigentext  darf  maximal  5  Zei¬ 
len  mit  je  32  Buchstaben  betragen.  Überweisen 
Sieden  Anzeigenpreis  von  DM  5, —  auf  das 
Postscheckkonto  Nr.  14199-803  beini,  Post¬ 
scheckamt  mit  dem  Vermerk  »Markt  &  Technik, 
64’er«,  oder  schicken  Sie  uns  DM  5,—  als 
Scheck,  in  Briefmarken  oder  In  Bargeld.  Der 
Verlag  behält  sich  die  Veröffentlichung  längerer 
Texte  vor.  Kleinanzeigen,  die  entsprechend  ge¬ 
kennzeichnet  sind  oder  deren  Text  auf  eine  ge¬ 
werbliche  Tätigkeit  schließen  läßt,  werden  in 
der  Rubrik  »Gewerbliche  Kleinanzeigen«  zum 
Preis  von  DM  10,—  je  Zelle  Text  veröffentlicht. 
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ASte 


lasten 


7e\d'«' 


unö 


Im  ersten  Teil  habe  ich  Ihnen  ge¬ 
zeigt,  wie  alle  Tasten  des  VC  20 
beziehungsweise  des  C  64  in  ei¬ 
ner  Matrix  angeordnet  sind.  Sobald 
eine  Taste  gedrückt  wird,  steht  eine 
spezielle,  nur  dieser  einen  Taste  zu- 


37152  des  VC  20.  Das  entsprechen¬ 
de  Register  des  C  64  ist  56320. 

Ich  habe  auch  erklärt,  wie  die 
Code-Zahlen  zustande  kommen.  In 
einem  kleinen  Demonstrationspro¬ 
gramm  haben  wir  dann  durch  Ab¬ 
fragen  dieses  Registers  mit  PEEK 
bestimmte  Programmschritte  mit 
Tastendruck  gesteuert. 


Ein  kurzer 
Rückblick 


Wir  haben  auch  herausgefunden, 
daß  das  Betriebssystem  des  Com¬ 
puters  bei  Verwendung  von  Basic 
eine  Abfrage  von  nur  acht  Tasten 
zuläßt.  Die  Abfrage  aller  Tasten, 
auch  mehrerer  Tasten  gleichzeitig, 
mit  einem  Programm  in  Maschinen¬ 
code  habe  ich  Ihnen  für  den  Schluß 
versprochen. 

Wir  sind  aber  noch  einen  Schritt 
weitergegangen  und  haben  heraus¬ 
gefunden,  daß  diese  Code-Zahlen 
der  64  Tasten  umgerechnet  und  für 
Zeichen-  und  Steuertasten  getrennt 


1  «  — 
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Bild  4:  Programm  zur  Bestimmung  des  Kompletten  ASCII-Codes 
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steußfl®2S« 


in  die  Speicherzellen  203  und  653 
gebracht  werden. 

Mit  dem  folgenden  kleinen  Pro¬ 
gramm  haben  wir  dann  diese  bei¬ 
den  Speicherzellen  abgefragt  und 
eine  Tabelle  angefertigt. 

Tippen  Sie  ein: 

100  PRINT  PEEK(203) ,  PEEK(653) 
200  GOTO  100 


Für  diejenigen  Leser,  die  Teil  1 
nicht  gelesen  oder  keine  Tabelle 
angefertigt  haben,  habe  ich  diesmal 
die  Tabelle  dabei.  Der  Grund,  daß 
die  Zahlen  für  die  beiden  Compu¬ 
ter,  trotz  gleicher  Tastatur,  verschie¬ 
den  sind,  liegt  darin,  daß  die  elektri¬ 
sche  Anordnung  der  Tasten,  in  ei¬ 
ner  8  x  8-Matrix  (die  ich  das  letzte 
Mal  für  den  VC  20  gezeigt  habe), 
beim  C  64  anders  sind, 
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Bild  3:  Die  im  Text 
erklärten  Programme  für  den  C  64 
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Bild  2:  Die  im  Text  erklärten  Programme  für  den  VC  20 


Bild  1:  Tabelle  des  Tasfencodes  in  den  Realster  203  und  653 
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£0 
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Im  Gedenken  an  diesen  Spruch 
meines  Latein-Lehrers  zeige  ich 
noch  einmal  die  Anwendung  dieser 
Code-Zahlen  in  dem  folgendem 
Programm  1 .  Zeilen  in  (),  wie  gesagt, 
sind  für  den  C  64,  aber  nur  dort,  wo 
er  sich  vom  VC  20  unterscheidet. 


Die  Wiederholung  ist  die 
Mutter  der  Weisheit 


Natürlich  wähle  ich  wieder  die 
Funktionstasten  und  am  besten 
auch  noch  eine  andere  Tastenkom¬ 
bination.  Zweck  der  kleinen  De¬ 
monstration  soll  das  Umschalten  auf 
verschiedene  Bildschirmrahmen- 
und  Hintergrundfarben  sein.  Ich 
schlage  vor,  Sie  nehmen  wie  üblich 
die  Zeitschrift  zum  Computer  und  le¬ 
sen  tippend  weiter.  Es  folgt  nun  das 
Programm  1  zur  Tastaturabfrage. 

10  PRINT  CHR$(147) 

Diese  Befehlsfolge  löscht  den 
Bildschirm.  Die  Code-Zahlen  der 
Funktion  CHR$  werde  ich  noch  er¬ 
klären. 

Die  Zeilen  20  und  30  erleichtern 
die  Tipperei  und  machen  übrigens 
das  Programm  ein  bißchen  schnel¬ 
ler.  Sie  ordnen  den  Variablen  A  und 
B  den  Inhalt  der  Speicherzellen  203 
und  653  —  die  wir  ja  abfragen  wol¬ 
len  —  zu. 

20  A  =  PEEK(203) 

30  B  =  PEEK(653) 

Jetzt  geht ’s  los  mit  der  Fragerei. 
Die  Taste  fl,  mit  der  wir  die  Farb- 
kombination  Blau/Gelb  schalten 
wollen,  hat  folgende  Code-Zahlen: 
40  IF  A  =  39  AND  B  =  0  THEN 
POKE  36879,126 

(40  IF  A  =  4  AND  B  =  0  THEN  POKE 
53280, 6:POKE  53281,7  ) 
f2  ist  dieselbe  Taste,  aber  ge- 
SHIFTet  (B  =  1).  Die  Farben  sollen 
jetzt  Rot/Grün  sein: 

50  IF  A  =  39  AND  B  =  1  THEN 
POKE  36879,45 
(50  IFA  =  4  AND  B=1  THEN 
POKE  53280,5:  POKE  53281,2) 

60  IF  A  =  47  AND  B  =  4  THEN 
POKE  36879,25 
(60  IF  A  =  5  AND  B  =  4  THEN 
POKE  53280,1:  POKE  53281,1) 

Zeile  60  bestimmt  ebenfalls  eine 
Funktionstaste  und  zwar  f3.  Aller¬ 
dings  habe  ich  sie  willkürlich  mit 
der  CTRL-Taste  kombiniert,  nicht, 
um  Sie  zu  verwirren,  sondern  um  zu 
zeigen,  daß  wir  mit  den  f-Tasten 
mehr  als  acht  Funktionen  festlegen 
können,  nämlich  32!  (Vier  f-Tasten 
mal  acht  Steuertasten-Kombinatio- 
nen).’ 


Mit  dem  Klammeraffen  »@«  schal¬ 
ten  wir  die  Farben  in  den  Normalzu¬ 
stand  zurück. 

70  IF  A  =  53  AND  B  =  0  THEN 
POKE  36879,27 
(70  IFA =46  AND  B  =  0  THEN 
POKE  53280,3:  POKE  53281,1) 

Zeile  80  läßt  das  Programm  im 
Kreis  laufen,  so  daß  die  Funktionsta¬ 
sten  beliebig  oft  ausprobiert  wer¬ 
den  können.  S  80  GOT020 


Funktionstasten  im 
Überfluß 


So,  jetzt  kommt  der  absolute  Hit 
dieser  Methode! 

Ich  habe  gerade  vorher  gesagt, 
daß  wir  nicht  acht,  sondern  32  mögli¬ 
che  Funktionstasten  haben,  nämlich 
durch  Verwendung  der  vier  f-Ta¬ 
sten  mit  den  acht  Steuertasten- 
Codes  in  Speicherzellen  653. 

Dasselbe  gilt  für  jede  andere  Ta¬ 
ste  natürlich  auch! 

Der  Computer  benützt  allerdings 
einige  davon,  zum  Beispiel  die  1 
(SHIFT)  für  die  Zeichen  über  den 
Zahlen  beziehungweise  rechts  un¬ 
ten  auf  den  Tasten,  die  2  (C  = )  für  die 
Zeichen  links  unten  auf  den  Tasten 
und  die  4  (CTRL)  für  die  Farben. 

Wir  können  daher  mit  den  vom 
Computer  benutzten  Zahlen  3,  5,  6 
und  7  aus  Zelle  653  in  Kombination 
mit  allen  55  Tasten  eine  riesige  An¬ 
zahl  verschiedener  »Funktionsta¬ 
sten«  erfinden  und  sie  in  unseren 
Programmen  einsetzen. 


Der  Computer  geht  bei 
der  Abfrage  noch 
einen  Schritt  weiter 


Aber  auch  die  4  der  CTRL-Taste, 
die  ja  nur  die  obere  Reihe  der  Ta¬ 
sten  beeinflußt,  hat  einen  prakti¬ 
schen  Wert,  meiner  Meinung  nach 
sogar  einen  sehr  großen,  da  sie  ja 
nur  einen  einzigen  Tastendruck  er¬ 
fordert  und  nicht  eine  Kombination. 

Die  CTRL-Taste  kombiniert  mit 
den  35  Tasten  der  unteren  drei  Rei¬ 
hen  der  Tastatur  gibt  uns  mehr 
»Funktionstasten«  als  wir  wahr¬ 
scheinlich  jemals  brauchen  wer¬ 
den. 

Mehrere  handelsübliche  Zusatz- 
module  und  -Programme  verwen¬ 
den  diese  Methode,  zum  Beispiel 
auch  die  »Programmierhilfe«  von 
Commodore.  Verwenden  Sie ’s 
doch  auch!  Das  Kochrezept  dazu 
steht  oben  in  den  Zeilen  50  bis  80. 


Um  das  Ergebnis  eines  Tasten¬ 
drucks  weiter  zu  verarbeiten,  wäre 
dem  Computer  die  Abfrage  zweier 
Speicherzellen  zu  langsam.  Außer¬ 
dem  entsprechen  diese  Tastenco¬ 
des  keiner  internationalen  Norm, 
was  in  Verbindung  mit  anderen  Ge¬ 
räten  sehr  lästig  wäre. 

Es  gibt  den  international  aner¬ 
kannten  ASCII-Code  (American 
Standard  Code  for  Information  In¬ 
terchange),  der  ursprünglich  für  die 
Zeichenübertragung  von  Fern¬ 
schreibern  erfunden  wurde.  Er  be¬ 
steht  aus  Dualzahlen  mit  einer  Län¬ 
ge  von  8  Bit  oder  falls  Sie  Dualzahlen 
nicht  kennen  (eine  erste  Einführung 
ins  Dualsystem  steht  im  Grafikkurs) 
aus  Zahlen  von  0  bis  255. 

In  diesen  ASCII-Code  wandelt 
der  Computer  nun  die  oben  ver¬ 
wendeten  Codezahlen  der  Tasten 
um.  Die  Umwandlung  ist  denkbar 
einfach. 


Umrechnung  des 
Tastatur-Codes  in  den 
ASCII-Code 


Im  nicht  löschbaren  Speicher 
(ROM)  des  Betriebssystems  stehen 
vier  Tabellen  mit  Zahlen. 

Wenn  man  nun  die  Code-Zahl  ei¬ 
ner  Taste  zur  Anfangsadresse  der 
Tabellen  addiert,  erhält  man  eine 
Adresse,  in  der  die  ASCII-Codezahl 
gespeichert  ist.  Einfach,  nicht  wahr? 

Probieren  geht  über  studieren. 
Die  Tabelle  der  ungeSHIFTeten 
Zeichen,  also  der  Zahlen  und  Groß¬ 
buchstaben,  beginnt  beim  VC  20  ab 
Speicherzelle  60510,  beim  C  64  ab 
60289. 

Nehmen  wir  das  »G«,  sein  Taten¬ 
code  aus  der  Tabelle  ist  1 9  (26). 

Zu  60510  (60289)  dazugezählt  er¬ 
gibt  das  60529  (60315).  Nun  wollen 
wir  mal  nachschauen,  was  in  dieser 
Zelle  steht. 

Geben  Sie  »direkt«,  (das  heißt  oh¬ 
ne  Zeilenzahl)  ein: 
für  VC  20:  PRINT  PEEK  (60529) 
für  C  64:  PRINT  PEEK  (60315) 

Das  Resultat  ist  71.  Ein  Blick  auf 
die  ASCII-Liste  des  Handbuches 
(oder  in  jede  andere  ASCII-Tabelle) 
zeigt  uns  die  Richtigkeit  dieser  Ak¬ 
tion.  Der  ASCII-Code  des  Zeichens 
»G«  ist  71. 

Um  alle  ASCII-Codes  abfragen  zu 
können,  schreiben  wir  wieder  ein 
kleines  Programm. 

110  A= PEEK  (203) 

120  Z  =  60510 
(120  Z  =  60289) 

170  C  =  PEEK(Z  + A) 


106  ütfai* 
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Bitte  verwenden  Sie  meine  Zeilen¬ 
nummern,  ich  möchte  nämlich  spä¬ 
ter  noch  andere  Zeilen  einschieben. 

Diese  drei  Zeilen  sollten  Ihnen 
klar  sein.  Zur  Erinnerung:  60510  ist 
die  Anfangsadresse  der  Code- 
Tabelle  beim  VC  20.  Die  64er  müs¬ 
sen  also  ihre  eigene  Adresse 
(60289)  nehmen. 

Als  Ergebnis  wollen  wir  noch  den 
Tastaturcode  (Zeile  110)  und  den 
ASCII-Code  (Zeile  1 70)  nebeneinan¬ 
der  ausdrucken: 

200  PRINT  A;C 
220  GOTO  110 

Damit  die  beiden  Zahlenbänder 
nicht  zu  schnell  laufen,  fügen  wir 
noch  eine  Verzögerungsschleife 
ein. 

210  FOR  T=  1  TO  200:  NEXT 

Dieser  Programmablauf,  der  mit 
RUN  110  gestartet  wird,  reagiert 
jetzt  auf  jeden  Tastendruck,  links 
mit  dem  Tastencode,  rechts  mit  AS¬ 
CII.  Worauf  er  aber  nicht  reagiert, 
sind  geSHIFTete  Zeichen,  solche 
mit  der  Commodore-Taste  »C«  und 
die  Farben  (mit  CTRL). 

Sie  wissen,  warum?  Natürlich, 
denn  wir  fragen  ja  nur  die  Speicher¬ 
zellen  203  ab  und  nicht  zusätzlich 
auch  653. 

Jetzt  muß  ich  noch  schnell  erwäh¬ 
nen,  daß  auch  der  Computer  diese 
Zellen  abfragt. 


Wo  steht  was? 


Erinnern  Sie  sich,  ich  habe  oben 
gesagt,  daß  im  ROM  Tabellen  ste¬ 
hen: 

(1)  ab  60510  (60289)  für  normale  Zei¬ 
chen 

(2)  ab  60575  (60354)  für  Zeichen  mit 
SHIFT 

(3)  ab  60640  (60419)  für  Zeichen  mit 
C  = 

(4)  ab  60835  (64632)  für  Zeichen  (Far¬ 
ben)  mit  CTRL 

Das  bauen  wir  jetzt  in  das  Pro¬ 
gramm  ein: 

Zeile  120  ändern  wir  ab.  Sie  fragt 
jetzt  die  Speicherzelle  653  nach  den 
Steuertasten  ab.  In  den  Zeilen  130 
bis  160  springen  wir  auf  die  vier  Ta¬ 
bellenanfänge.  Der  Ausdruck  in 
Zeile  200  schließlich  wird  mit  der 
Codezahl  aus  653  erweitert,  nämlich 
B. 

120  B  =  PEEK(653) 

130  IF  B  =  0  THEN  Z  =  60510  (60289) 
140  IF  B  =  1  THEN  Z  =  60757  (60354) 
150  IF  B  =  2  THEN  Z  =  60640  (60419) 
160  IF  B  =  4  THEN  Z  =  60835  (64632) 
200  PRINT  A;B;C 
Die  Reihenfolge  der  Zahlenbän¬ 
der  auf  dem  Bildschirm  —  entspre¬ 


chend  der  Zeile  200  —  ist  jetzt  von 
links  Zeichentaste,  Steuertaste, 
ASCII-Code. 

Der  ASCII-Code  wird  im 
Tastatur-Puffer  abgelegt 

Ehrlich  gesagt,  das  Verfahren  der 
Tastaturabfrage  in  dem  vorherigen 
Programm  ist  immer  noch  recht 
kompliziert.  Eine  direkte  Abfrage 
des  ASCII-Codes  einer  Taste  wäre 
viel  besser. 

Und  in  der  Tat,  der  Computer  bie¬ 
tet  sie  uns.  Er  bringt  nämlich  jeden 
ASCII-Wert  in  einen  Speicher  zur 
Zwischenlagerung,  bis  er  von  ei¬ 
nem  Programmschritt  gebraucht 
wird. 

Dieser  Speicher  heißt  »Tastatur- 
Puffer«  und  liegt  von  Speicherzelle 
631  bis  einschließlich  640. 

Es  können  also  maximal  zehn 
Werte  gespeichert  werden.  Das  er¬ 
ste  Zeichen  steht  immer  in  631,  alle 
anderen  werden  der  Reihe  nach  in 
die  folgenden  Zellen  gebracht. 

Als  erstes  wird  das  Zeichen  aus 
631  ausgelesen  und  alle  anderen 
rücken  nach. 

Wenn  das  Programm  die  ASCII- 
Werte  aus  dem  Tastatur*?»  "er  aus- 
lesen  kann,  dann  können  wir  das  na¬ 
türlich  auch.  Das  folgende  kleine 
Programm  soll  es  beweisen. 

310  PRINT  CHR$(147) 

330  A  =  PEEK(631) 

Sie  sehen,  wir  wollen  ganz  einfach 
in  Zelle  631  des  Tastaturpuffers 
nachschauen,  welcher  ASCIT -Wert 
nach  Drücken  einer  Taste  dort  steht 
(Zeile  330).  In  Zeile  340  drucken  wir 
den  Wert  aus  und  springen  dann 
zum  PEEK-Befehl  zurück. 

340  PRINT  A 
350  GOTO  330 

Wenn  Sie  dieses  Programm  mit 
RUN  310  laufen  lassen,  werden  Sie 
merken,  daß  es  nicht  geht,  ich  will 
sagen;  noch  nicht  geht.  Den  Grund 
dafür  habe  ich  kurz  vorher  schon 
angedeutet. 

Wo  sind  die  Computer-Detektive? 
Haben  Sie’s  gemerkt? 

Nun,  ich  habe  erklärt,  daß  die 
ASCII-Werte  der  gedrückten  Ta¬ 
sten  der  Reihe  nach  im  Tastaturpuf¬ 
fer  gespeichert  werden  und  dann, 
wenn  ein  Wert  aus  631  ausgelesen 
wird,  nachrücken.  Das  ist  der  sprin¬ 
gende  Punkt:  durch  PEEKen  lesen 
wir  nicht  aus,  wir  schauen  nur  nach! 

Es  gibt  zwei  Lösungen  für  dieses 
Problem: 

1)  Wir  verwenden  einen  Befehl,  der 
den  Wert  herausholt;  das  ist  GET 
oder  INPUT. 


2)  Wir  gaukeln  dem  Computer  vor, 
daß  der  Tastaturpuffer  nur  aus  ei¬ 
ner  einzigen  Speicherzelle  besteht. 

Die  Methode  2  ist  exotischer,  des¬ 
halb  zeige  ich  Sie  Ihnen  zuerst.  Es 
gibt  eine  Speicherzelle  198.  In  die¬ 
ser  Zelle  steht  eine  Zahl,  die  angibt, 
wieviele  Zeichen  im  Tastaturpuffer 
Platz  haben.  Normalerweise  steht 
da  eine  10  (schauen  Sie  nach). 

Diese  Zelle  kann  mit  kleineren 
Zahlen  gePOKEt  werden,  auch  mit 
einer  0.  Die  0  löscht  sozusagen  den 
Puffer.  Das  machen  wir  jetzt  in  unse¬ 
rem  Programm  vor  dem  PEEKen: 
320  POKE  198,0 
350  GOTO  320 

Jetzt  läuft' s. 

Die  Zeile  340  gibt  uns  also  den 
ASCII-Code  der  gerade  gedrück¬ 
ten  Taste  auf  dem  Bildschirm  aus, 
zum  Beispiel  die  Zahl  84  für  das  »T«, 
163  für  das  »— «  (T  mit  C=)  und  so 
weiter. 

Unter  Verwendung  von  GET  wür¬ 
de  unser  Programm  so  aussehen: 
310  PRINT  CHR$(147) 

320  GET  A$ 

330  IF  A$=””  THEN  320 
340  PRINT  ASC(A$) 

350  GOTO  320 

Neu  ist  die  Verwendung  der 
Funktion  ASC.  Sie  bildet  den  ASCII- 
Wert  des  Zeichens  A$. 

Für  diejenigen,  die  es  noch  nicht 
kennen:  Zeile  330  nach  dem  GET  ist 
erforderlich,  da  der  GET-Befehl 
nicht  auf  das  Drücken  einer  Taste 
wartet,  sondern  gleich  weiterläuft. 
Solange  aber  keine  Taste  gedrückt 
ist,  geht  die  Schleife  nach  320  zu¬ 
rück. 

Mit  INPUT  geht’s  noch  kürzer,  nur 
ist  die  Bedienung  etwas  umständli¬ 
cher. 

310  PRINT  CHR$(147) 

320  INPUT  A$ 

340  PRINT  ASC(A$) 

350  GOTO  320 

Der  Umstand  liegt  daran,  daß  IN¬ 
PUT  im  Gegensatz  zu  GET  auf  einen 
Tastendruck  wartet,  der  zusätzlich 
mit  RETURN  abgeschlossen  wer¬ 
den  muß. 

Nach  diesen  Erklärungen  und 
Versuchen  müßten  Sie  eigentlich  in 
der  Lage  sein,  Programm  1  so  umzu¬ 
schreiben,  daß  statt  der  Abfrage 
der  Speicherzellen  203  und  653  der 
Tastaturpuffer  abgefragt  wird.  Ich 
schlage  Ihnen  vor,  daß  Sie  das  jetzt 
selbst  ausprobieren,  sozusagen  als 
Hausaufgabe.  Die  Lösung,  das  Pro¬ 
gramm  Nummer  4,  ist  an  anderer 
Stelle  in  dieser  Ausgabe  versteckt. 

Das  einzige,  was  ich  Ihnen  verra¬ 
ten  will,  wissen  Sie  eigentlich  schon, 
nämlich,  daß  Sie  sich  die  ASCII- 
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Werte  für  die  f-Tasten  und  den 
Klammeraffen  »@«  besorgen  müs¬ 
sen.  Aber  wozu  haben  Sie  Pro¬ 
gramm  3  gleich  in  drei  Versionen? 

.  Ich  hoffe,  daß  Sie  nach  dieser 
Übung  einsehen,  daß  Sie  eine  voll¬ 
ständige  Liste  aller  ASCII- 
Codezahlen  und  ihrer  Bedeutung 
unbedingt  brauchen.  Halt,  werden 
Sie  jetzt  sagen,  die  Liste  steht  ja  in  je¬ 
dem  Handbuch  —  sogar  in  dem  von 
Commodore. 

Das  stimmt,  nur  sind  die  meisten 
Listen  nicht  komplett. 

Erinnern  Sie  sich?  Ich  habe  vor¬ 
her  mal  gesagt,  daß  der  ASCII- 
Code  die  Werte  von  0  bis  255  hat. 
Diese  werden  von  den  Commodo- 
re-Computern  in  nicht  immer  ganz 
der  Norm  entsprechender  Weise 
für  alle  möglichen  Zeichen  und  Son¬ 
derfunktionen  verwendet,  wie  zum 
Beispiel  die  Farben,  die  Sonderzei¬ 
chen  auf  den  Tasten,  Zeichenum- 
schaltung  und  so  weiter. 

Auch  die  Funktion  »Bildschirm  lö¬ 
schen  und  Cursor  auf  HOME- 
Position«  (das  heißt  die  CLR/HOME- 
Taste)  ist  dabei  —  mit  dem  Code¬ 
wert  147.  Merken  Sie  was?  Schauen 
Sie  mal  die  jeweiligen  1  Oer-Zeilen 
der  Programme  bisher  an! 

Es  lohnt  sich  also  schon,  alle 
Code-Werte  und  die  dazugehöri¬ 
gen  Zeichen  und  Funktionen  anzu¬ 
sehen. 

Ihnen  die  Liste  einfach  abzu¬ 
drucken  wäre  zu  simpel.  Sie  sollen 
ja  durch  Experimentieren  Ihren 
Computer  besser  kennenlernen. 
Ich  liefere  Ihnen  die  Versuchsan¬ 
ordnung  dazu. 

Vorher  aber  brauchen  wir  noch 
ein  Hilfsmittel,  welches  uns  erlaubt, 
aus  einem  ASCII-Wert  das  Zeichen 
beziehungsweise  die  Funktion  zu 
ermitteln.  Es  ist  die  Umkehrung  der 
in  Programm  3  verwendeten  ASC- 
Funktion.  Sie  kommt  ebenfalls  aus 
Basic  und  heißt  CHR$(x). 

Dieser  Befehl  liefert  uns  das  Zei¬ 
chen  oder  die  Funktion  des  ASCII- 
Codes  x. 

Der  Befehl  PRINT  CHR$(x)  bringt 
Zeichen  auf  den  Bildschirm.  (Mit 
dem  Befehl  PRINT#  a,CHR$  wird 
das  Zeichen  an  ein  beliebiges,  mit 
der  Nummer  a  bezeichnetes  Peri¬ 
pheriegerät  gebracht.  Doch  das  will 
ich  hier  nicht  weiter  verfolgen.) 

Jetzt  aber  zurück  zu  dem  Hilfsmittel 

Ergänzen  Sie  bitte  in  Programm  3 
die  Zeile  340  auf: 

340  PRINT  A,  CHR$(A) 

Jetzt  druckt  das  Programm  nach 
Start  mit  RUN  3 1 0  neben  dem  ASCII- 
Code  auch  das  Zeichen,  welches 

108  QSJh? 


natürlich  mit  der  gedrückten  Taste 
identisch  ist,  auf  den  Bildschirm. 
Funktionen  kann  man  allerdings 
nicht  ausdrucken,  sondern  nur  ihre 
Auswirkungen  feststellen. 

Doch  nun  zum  Kochrezept.  Der 
entscheidende  Teil  steht  in  Zeile 
570. 

570  PRINT  I;,,["CHR$(I)”]";... 
"ÄAA" 

I  ist  die  ASCII-Codezahl,  die  in  ei¬ 
ner  FOR-NEXT-Schleife  von  0  bis 

255  hochgezählt  wird.  Die  beiden 
Klammern  [  und  ]  stehen  in  Anfüh¬ 
rungszeichen,  damit  sie  ausge¬ 
druckt  werden.  Zwischen  ihnen  soll 
das  zum  Wert  I  gehörige  Zeichen 
stehen. 

In  den  Fällen,  wo  der  ASCII-Code 
nicht  ein  Zeichen,  sondern  eine 
Funktion  bedeutet,  bleibt  die  Klam¬ 
mer  leer.  Aber  der  Code  wirkt  sich 
durch  die  Form  PRINT  CHR$(I)  auf 
die  3  As  aus  (die  Punkte  ...  stellen 
drei  Leertasten  dar).  Zum  Beispiel 
erscheinen  sie  nach  1=28  in  roter 
Farbe,  bei  1=  17  (Cursor  Down)  eine 
Zeile  tiefer. 

Das  Hochzählen  von  I  in  Zeile  520 
wollen  wir  aber  ein  bißchen  beein¬ 
flussen,  und  das  natürlich  mit 
Drücken  von  Funktionstasten  und 
solchen,  die- wir  dazu  'erdonnern. 

In  Zeile  600  werden  daher  solche 
Tasten  abgefragt,  mit  der  »alten« 
Methode  in  Zelle  203.  Das  ist  reine 
Willkür  beziehungsweise  Sentimen¬ 
talität  von  mir,  die  »neue«  Methode 
über  Zelle  631  geht  genauso  gut. 

Wenn  in  203  eine  64  steht  (keine 
Taste  gedrückt),  dann  wartet  das 
Programm  durch  Rücksprung  auf 
die  Zeile  600. 

Falls  wir  die  fl -Taste  drücken, 
schaltet  Zeile  620  den  Hintergrund 
auf  Schwarz  und  geht  wieder  in 
Wartestellung.  Diese  und  die  bei¬ 
den  anderen  Farbumschaltungen 
mit  f3  (Zeile  630)  auf  weiß  und  mit  f5 
auf  hellorange  (Zeile  640)  sind  dann 
sehr  nützlich,  wenn  die  Farbe  der 
drei  As  gegen  den  Hintergrund  nur 
schlecht  oder  überhaupt  nicht  les¬ 
bar  sind. 

Zeile  650  gibt  uns  die  Möglichkeit, 
mit  der  Minus-Taste  in  der  Liste  um 
1  zurückzuschalten.  Zeile  530  er¬ 
laubt  ein  Zurückschalten  über  die  0 
nach  25.  Erst  wenn  irgendeine  be¬ 
liebige  Taste  gedrückt  wird,  springt 
das  Programm  auf  Zeile  660,  wo 
nach  kurzer  Zeitverzögerung  der 
Bildschirm  gelöscht  (70)  und  I  wei¬ 
tergezählt  wird  (680  und  690). 

So  können  Sie  sich  bequem  alle 

256  Werte  des  ASCII-Codes  und  ih¬ 
re  Wirkung  anschauen. 


Ich  möchte  Sie  hier  noch  auf  fol¬ 
gende  Codewerte  aufmerksam  ma¬ 
chen,  deren  Funktion  Sie  in  diesem 
Programm  entweder  nicht  sehen 
könnnen  oder  deren  Funktion  den 
Ablauf  stören: 


Code 

Funktionen 

3 

entspricht  der  ungeSHIF- 
Teten  STOP/RU  N-Taste 

8 

setzt  die  Umschaltung 
(mit  SHIFT  und  C=)  auf 
den  2.  Zeichensatz  außer 
Betrieb  (ausprobieren!) 

9 

hebt  die  Sperre  wieder 
auf 

13 

entspricht  der  RETURM- 
Taste 

14 

schaltet  den  2.  Zeichen¬ 
satz  per  Programm  ein 
(ich  empfehle,  danach 
wieder  auf  den  »norma¬ 
len«  Zeichensatz  zurück¬ 
zuschalten) 

131 

entspricht  LOAD/RUN 
(geSHIFTete  STOP/RUN- 
Taste) 

133-140 

Funktionstasten  fl  bis  f8 

141 

geSHIFTete  RETURN- 
Taste 

142 

schaltet  den  1 .  Zeichen¬ 
satz  ein  (Umkehrung  von 

14) 

146 

REVERSE-OFF  (Taste  0 
mit  CTRL) 

160 

geSHIFTete  SPACE- 
Taste  (ja,  ja,  das  gibt  es 
auch!) 

Ich  empfehle  Ihnen,  mit  diesem 
Programm  5  zu  experimentieren. 
Versuchen  Sie,  besonders  die 
Funktionen  zu  identifizieren,  es  ist 
nicht  schwer.  Zusätzlich  sollten  Sie 
alle  sinnvollen  ASCII-Werte  mit  den 
Ihnen  zur  Verfügung  stehenden 
ASCII-Listen  vergleichen.  Verbes¬ 
sern  und  vervollständigen  Sie  diese 
Listen.  Sie  gehören  zu  Ihrem  wich¬ 
tigsten  Handwerkszeug. 

Im  nächsten  und  zugleich  letzten 
Teü  werde  ich  Ihnen  die  Zusam¬ 
menhänge  zwischen  dem  ASCII- 
Code,  dem  Bildschirm-Code  und 
dem  PRINTen  in  Anführungszei¬ 
chen  erklären,  natürlich  wieder  mit 
Kochrezepten. 

Und  schließlich  will  ich  mein  Ver¬ 
sprechen  einlösen,  endlich  die 
Methode  der  Abfrage  von  mehre¬ 
ren  gleichzeitig  gedrückten  Tasten 
zu  zeigen. 

Übrigens,  wenn  Sie  Fragen  ha¬ 
ben,  scheuen  Sie  sich  nicht,  an  den 
Verlag  beziehungsweise  über  den 
Verlag  an  mich  zu  schreiben.  Ich 
versuche  mein  Bestes. 

(Dr.  Helmut  Hauck) 
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Sie  lernen  in  diesem  Kurs  nicht  nur 
etwas  über  die  Grafik.  Ausführlich  er¬ 
läutert  werden  auch  die  beiden  wich¬ 
tigsten  Zahlensysteme  für  den  Com¬ 
puter,  das  Binär-  und  das  Hexade¬ 
zimalsystem.  Wir  ermöglichen  Ih¬ 
nen  Änderungen  an  der  Speicher¬ 
organisation  und  bringen  Ihnen 
die  logischen  Verknüpfungen 
näher.  Und  das  alles,  um  schließlich 
eigene  Zeichen  erstellen  zu  können. 


wie  vorher,  nur  das  Zahlensystem, 
das  ist  jetzt  Binär.  Sehen  wir  uns  das 
nochmal  genauer  an.  Wissen  Sie 
noch,  was  in  der  Mathematik  Poten¬ 
zen  sind?  Falls  nicht,  103  heißt  10  mal 
10  mal  10,  also  die  Zehn  dreimal  mit 
sich  selbst  multipliziert.  IO3  ist  aller¬ 
dings  1 .  Wenn  wir  nun  eine  normale 
Dezimalzahl  (eine  Zahl  der  Zehnfin¬ 
gerlinge)  vor  uns  haben,  zum  Bei¬ 
spiel  255,  dann  kann  man  dafür  auch 
schreiben: 

255  =  2*102  +  3*101 +  5*100  =  2*100 
+  5*10  +  5*1 

Rechnen  Sie  nach:  Es  stimmt!  Ge¬ 
nauso  ist  nun  auch  eine  Binärzahl 
aufgebaut: 

1001=  1*23  +  0*22  +  0*21  +  1*20 

Deswegen  ist  es  auch  relativ  ein¬ 
fach,  die  Zahlen  der  Zweifingerlin¬ 
ge  in  unser  Zehnfinger-System  um¬ 
zurechnen: 

1001=  1*23  +  0*22  +  0*21  +  1*2°=1* 

8 +  0*4 +  0*2+  1*1  =  9 

Die  bequemste  Methode  ist  es, 
ein  Schema  wie  in  Bild  1  zu  benut¬ 
zen.  Andersherum  kann  man  auch 
ganz  einfach  unsere  Zahlen  in  die 
der  Zweifingerlinge  umrechnen, 
nämlich  wie  in  Bild  2  gezeigt. 

Dabei  bedeutet  lsb  »least  signifi- 
cant  bit»  und  msb  »most  significant 
bit»,  also  zu  deutsch  etwa  »bedeut¬ 
samstes  Bit«  und  »am  wenigsten  be¬ 
deutsames  Bit«.  Das  ist  leicht  zu  ver¬ 
stehen:  Es  macht  keinen  so  großen 
Unterschied,  ob  mir  jemand  1001 
Mark  oder  1002  Mark  schenkt.  Der 
Unterschied  berührt  mich  aber 
schon  ganz  anders  bei  1001  Mark 
oder  2001  Mark.  Für  ökonomisch 
Denkende  sei  noch  bemerkt,  daß 
das  Programm  SpeiLu  (in  erweiter¬ 
ter  Form  hier  angefügt)  ein  schönes 
Unterprogramm  (Zeilen  20000  bis 
20030)  enthält,  welches  beliebige 


Wir  haben  zehn  davon  (im  allge¬ 
meinen)  und  haben  deswegen 
wohl  auch  neun  Ziffern  und  die 
Null: 

1,  2,  3,  4,  5,  6,  7,  8,  9,  0. 

Um  eine  Zahl  auszudrücken,  die 
größer  als  9  ist,  zum  Beispiel  9+1, 
setzen  wir  einfach  zwei  von  diesen 
Ziffern  zusammen  und  fangen  wir 
wieder  bei  der  kleinsten  Ziffer  1  an 
und  hängen  eine  Null  dran:  10.  Auf 
diese  Weise  können  wii  p  der  An¬ 
zahl  von  Dingen  eine  Zahl  zuordnen. 
W as  wäre ,  wenn  wir  nur  zwei  Finger 
hätten?  Wir  hätten  dann  —  wie  die 
im  Computer  hemmwimmelnden 
Zweifingerlinge  —  nur  zwei  Ziffern: 
1  und  0. 

Die  Begegnung  mit  den 
Zweifingerfingen: 

Das  Binärsystem 

Um  nun  eine  Zahl  auszudrücken, 
die  größer  als  unsere  größte  Ziffer 
(1)  ist,  würden  wir  auch  so  verfahren 
wie  die  Zehnfingerwesen.  Also  fan¬ 
gen  wir  wieder  bei  der  kleinsten  Zif¬ 
fer  an  (die  hier  auch  gleichzeitig  die 
größte  und  überhaupt  die  einzige 
ist),  also  der  1  und  hängen  eine  Null 
dran:  10.  Wir  zählen  also  jetzt 
1,  10,  11,  100,  101,  110,  111,  1000, 
1001  und  so  weiter. 

Die  Zehnfingerlingzahlen  dafür 
sind:  1,  2,  3,  4,  5,  6,  7,  8,  9  und  so  wei¬ 
ter. 

Die  Zweifingerlinge  würden  also 
zu  meinem  guten  alten  R4  sagen: 
»Dieser  RI 00  hat  100  Zylinder  und 
100010  PS«.  Leider  —  oder  von  der 
Steuer  her  Gottseidank  —  hat  sich 
dadurch  aber  an  der  Tatsache 
nichts  geändert,  daß  er  genauso 
schwach  den  Berg  hinaufklettert 


Die  zweite  Etappe  unseres  We¬ 
ges  durch  das  Bytegewirr  zu  un¬ 
serem  Dornröschen  (der  hoch¬ 
auflösenden  Grafik)  wird  gleich  ge¬ 
startet.  Wir  sollten  uns  nochmal  in 
Erinnerung  rufen,  was  wir  bisher 
gesehen  haben.  Da  war  zunächst 
mal  ein  Überblick  über  die  gesamte 
Speicherorganisation  unseres  Com¬ 
puters.  Genauer  haben  wir  uns 
dann  die  Ein-  und  Ausgabebaustei¬ 
ne  angesehen,  um  schließlich  einen 
Plan  der  VIC-II-Chip-Register  zu  fin¬ 
den.  Wir  haben  das  Rätsel  teüweise 
gelöst,  wie  ein  bestimmtes  Zeichen 
an  einen  bestimmten  Ort  des  Bild¬ 
schirmes  gelangt  und  woher  unser 
Computer  überhaupt  weiß,  wie  bei¬ 
spielsweise  das  A  aussehen  soll. 
Dabei  sind  wir  bereits  allerlei  Merk¬ 
würdigkeiten  begegnet:  Wir  gehen 
durch  Alices  Wunderland!  Nun,  der 
Wunder  sind's  noch  nicht  genug  ge¬ 
wesen,  denn  auch  auf  dieser  Etap¬ 
pe  werden  wir  allerlei  Eigenartig¬ 
keiten  sehen:  Wir  treffen  die  Zwei¬ 
fingerlinge  und  die  Sechzehnfinger¬ 
linge.  Wir  werden  lernen,  wie  wir 
unseren  Computer  hinters  Licht  füh¬ 
ren  können.  Schließlich  werden  wir 
uns  wie  Frankenstein  —  aber  besser 
als  er  —  an  neue  Kreationen  heran¬ 
wagen.  Die  Pause  ist  beendet,  wir 
brechen  auf. 

Im  Grunde  genommen  haben  sie 
uns  schon  fast  die  ganze  1.  Folge 
über  ungesehen  begleitet:  Die 
Zweifingerlinge.  Um  sie  für  uns 
sichtbar  zu  machen,  bedarf  es  ei¬ 
gentlich  nur  einiger  Gedanken¬ 
übungen.  Beobachten  Sie  mal  klei¬ 
ne  Kinder  beim  Zählen  oder  Rech¬ 
nen:  Das  läuft  Finger  für  Finger. 
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Dezimalzahlen  in  Binärzahlen  am¬ 
rechnet. 

__  Vielleicht  haben  Sie  Lust,  zur 
Übung  noch  ein  bißchen  zu  rechnen 
(aber  bitte  nicht  mit  dem  Unterpro¬ 
gramm): 

a)  Umrechnung  dez—  binär 
25,16,47,128 

b)  Umrechnung  binär—  dez 

10001,1110,11110000 

Die  Lösungen  finden  Sie  am  Ende 
dieser  Folge. 

Wir  haben  jetzt  die  Zweifingerlin¬ 
ge  ausgiebig  kennengelernt  und 
werden  mit  ihrer  Hilfe  später  einige 
Hürden  nehmen  können,  Jetzt  aber 
zu  den  Sechzehnfingerlingen. 


Oie  Entartung  der 
Sechzehnfingerlinge: 
Das  Hexadezimalsystem 


Diese  Sechzehnfingerlinge  be¬ 
gleiten  uns  auch  ständig  und  zwar 
als  Sechzehnfingerlinge  getarnt. 
Doch  bevor  wir  sie  enttarnen,  müs¬ 
sen  wir  etwas  mehr  über  sie  wissen. 
Die  Zählweise  der  Sechzehnfinger¬ 
linge  mutet  uns,  die  wir  nur  zehn  Fin¬ 
ger  haben  (also  auch  nur  9  Ziffern 
und  die  Null)  etwas  merkwürdig  an, 
denn  was  nimmt  man  —  für  Ziffern 
größer  als  9  —  ohne  eine  zweistelli¬ 
ge  Zahl  zu  benutzen?  Wir  bemühen 
das  Alphabet: 

0,1, 2, 3, 4, 5, 6, 7, 8, 9,  A,  B,  C,  D,  E,  F 
Als  Zehnfingerlinge  würden  wir  da¬ 
für  schreiben: 

0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 
Sobald  es  um  eine  Anzahl  größer  als 
F  (dez.  =  15)  geht,  zum  Beispiel  Fh-  1, 
dann  kommt  auch  hier  die  zweite 
Stelle  dazu:  F+  1  =  10  (dezimal  wäre 
das:  15  +  1  =  16),  Ebenso  wie  die  De¬ 
zimalzahlen  sind  auch  die  Hexadezi¬ 
malzahlen  auf  Potenzen  auf  gebaut: 
$83 1  =  8*  1 62  +  3*  1 6 1  + 1  *  1 60  =  8*256 
+  3*16+  1*1  =  2097 

Dabei  steht  das  Dollarzeichen  da¬ 
für,  daß  es  sich  um  eine  Hexadezi¬ 
malzahl  handelt,  was  allgemein  üb¬ 
lich  ist.  Die  Umrechnung  von  Hex- 
Zahlen  in  Dezimalzahlen  und  umge¬ 
kehrt  ist  etwas  beschwerlicher  als 
die  von  Binärzahlen.  Man  behilft 
sich  am  besten  mit  der  Tabelle  1 . 
Damit  geht  die  Umrechnung  einer 
Hex-Zahl  in  eine  Dezimalzahl  relativ 
einfach  (siehe  Bild  3). 

Man  sucht  sich  aus  der  Tabelle  in 
der  Spalte,  die  dem  Stellenwert  der 
Hex-Ziffer  entspricht,  die  dazu  ge¬ 
hörige  Dezimalzahl.  Das  führt  man 
für  alle  Hex-Stellen  durch  und  ad¬ 
diert  dann  die  so  gefundenen  Dezi- 
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Bild  1.  Schema  zur  Umrechnung  des 
Dual-  in  das  Dezimalsystem 


malwerte  wie  im  Beispiel  gezeigt 
wird. 

Auch  die  Umwandlung  einer  De¬ 
zimalzahl  in  die  Hex-Zahl  ist  jetzt 
nicht  mehr  so  tragisch.  Nehmen  wir 
die  Dezimalzahl  40959  (siehe  Bild  4). 
Wir  suchen  aus  der  Tabelle  die 
größte  Dezimalzahl  heraus,  die  ge¬ 
rade  noch  kleiner  als  unsere  Zahl 
ist:  36864.  Ihr  entspricht  eine  $9  an 
der  3.  Stelle  der  zu  findenden  Hex¬ 
zahl.  Wir  ziehen  dann  diese  Zahl 
36864  von  unseren  40959  ab.  Es  blei¬ 
ben  4095.  Wieder  suchen  wir  jetzt 
eine  Stelle  tiefer  (also  in  Spalte  2) 
die  größte  Dezimalzahl  heraus.  Jetzt 
ist  das  3840.  Erneut  folgt  eine  Sub¬ 
traktion  und  so  weiter  wie  im  Bei¬ 
spiel  im  Bild  4  gezeigt  wurde. 

Ich  bewundere  Ihren  Mut,  daß  Sie 
mit  mir  auf  dieser  Etappe  soweit  mit¬ 
gegangen  sind.  Wir  stecken  jetzt  an¬ 
scheinend  total  fest  im  Dornen- 


In  Bild  1  ist  die  Bit-Numerierung  zu 
sehen  und  wie  voll  man  so  eine 
Hausnummer  machen  kann.  Wie 
man  aber  auch  dabei  erkennt,  ist 
die  größte  Zahl,  die  in  einem  Byte 
Platz  findet  1111  1111  oder  dezimal 
255  oder  —  rechnen  Sie  nach  —  $FF 
im  Hex-Sy stem.  Nun  kann  man  sich 
ja  vorstellen,  daß  zum  Beispiel  das 
Betriebssystem  häufig  im  Verlauf 
der  Benutzung  irgendwelche  Haus¬ 
nummern  angeben  muß,  zum  Bei¬ 
spiel  wo  eine  Routine  zu  finden  ist, 
ein  Text  und  so  weiter.  Aber  auch 
das  Betriebssystem  ist  darauf  fest¬ 
gelegt,  daß  in  jeder  Hausnummer 
nur  8  Bits  vorhanden  sind!  Wie  kann 
es  dann  aber  zum  Beispiel  sagen, 
daß  die  Basic-Warmstartadressen 
bei  42115  liegt,  wenn  es  nur  bis  255 
zählen  kann?  Ganz  einfach:  Es  gibt 
sozusagen  Wohngemeinschaften, 
die  zwei  Hausnummern  bewohnen 


Bild  2.  Schema  zur  Umrechnung 
des  Dezimal-  in  das 
Dualsystem 


dickicht.  Aber  nur  noch  eine  letzte 
Anstrengung  und  wir  kommen  zu  ei¬ 
ner  kleinen  Lichtung,  auf  der  wir 
uns  etwas  ausruhen  können.  Dazu 
werden  wir  nun  die  Sechzehnfin¬ 
gerlinge  enttarnen. 

Sehen  wir  uns  dazu  die  Zahl  $FFFF 
an,  die  größte  mit  vier  Stellen  dar¬ 
stellbare  Hex-Zahl.  Wenn  Sie  per 
Tabelle  umrechnen,  werden  Sie 
feststellen,  daß  wir  65535  vor  uns  ha¬ 
ben.  Erinnern  Sie  sich  an  die  Folge 
1 ,  wo  diese  Zahl  die  Obergrenze  un¬ 
seres  gesamten  Speichers  war? 
Dann  erinnern  Sie  sich  sicherlich 
auch  noch  daran,  daß  in  einer 
Speicher-Hausnummer  (Byte)  acht 
Zimmer  (Bits)  sind,  die  entweder 
leer  oder  voll  sein  konnten  (0  und  1). 


Bild  3.  Umrechnung  einer  Hex-  in  eine 
Dezimalzahl 


und  wenn  alle  Bits  von  2  Bytes  voll 
sind,  dann  haben  wir: 
1111  1111  1111  1111  =  dezimal 
65535.  Wenn  alle  leer  sind,  haben 
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Bild  4.  Umrechnung  einer  Dezimal-  in  eine 
Hex-Zahl 

wir  0.  Mit  2-Byte-Adressen  kann  also 
der  ganze  Bereich  erfaßt  werden.  In 
Bild  3  haben  wir  berechnet,  daß  der 
Adresse  42115  die  Hex-Zahl  $A483 
entspricht.  Jetzt  zerteilen  wir  diese 
Hex-Zahl  auf  zwei  Bytes,  von  denen 
das  eine  MSB  (most  significant  Byte 
=  bedeutsamstes  Byte)  und  das  an¬ 
dere  LSB  (least  significant  Byte  = 
am  wenigsten  bedeutsames  Byte), 
genannt  wird,  wie  vorhin  msb  und 


feststellen,  daß  Sie  allerhand  damit 
anfangen  können.  Die  Sechzehnfin¬ 
gerlinge  sind  also  als  Dezimalzahlen 
getarnt  gewesen  (Bild  6).  Auch  hier 
zur  Übung  einige  Aufgaben: 

c)  Umrechnung  hex  -  dez 
$92,  $D728,  $A001 

d)  Umrechnung  dez  —  hex 
65534,  2048,  21235 

e)  Tun  Sie  so,  als  müßten  Sie  diese 
letzte  Zahl  in  die  Speicherzellen  770 
und  771  eingeben.  Welche  POKEs 
sind  nötig? 

So,  jetzt  wo  wir  die  Hex-Zahlen  er¬ 
kennen  können,  werden  wir  uns  ih¬ 
rer  kräftig  bedienen. 

Wir  führen  den  C  64 
hinters  Licht:  Eigene 
Änderungen  an  der 
Speicherorganisation 


Jetzt  können  wir  geistig  etwas  aus- 
spannen.  Falls  Sie  Ihren  Computer 
schon  in  Betrieb  haben,  speichern 
Sie  darauf  befindliche  Programme 
ab,  schalten  Sie  aus  und  wieder  ein. 
Wir  wollen  den  Computer  im  Ur¬ 
sprungszustand  etwas  untersuchen 


und  dann  einige  Änderungen  vor¬ 
nehmen.  Auf  der  Zeropage  gibt  es 
einige  nützliche  Hausnummern,  die 
wir  uns  ansehen  wollen.  Tippen  Sie 
doch  mal  ein: 

PRINT  PEEK  (43),  PEEK  (44) 
»RETURN« 

Wir  erhalten  1  8 

Die  Umrechnung  mit  der  Tabelle 
ergibt  $  801  =  dez.  2049.  Sehen  wir 
in  das  Handbuch,  Anhang  Q  auf  Sei¬ 
te  160.  Dort  ist  zu  lesen,  hier  sei  die 
Startadresse  vom  Basic-Text  ge¬ 
speichert.  Jetzt  machen  wir  uns  das 
etwas  komfortabler.  Wir  geben  im 
Direktmodus  (also  ohne  Programm- 
ze liennummer)  ein: 

A  =  45:PRINT PEEK(A),  PEEK(A+1), 
PEEK(A)  +  PEEK(A  +  1)*256 
»RETURN« 

Wir  erhalten:  3  8  2051 

Dies  ist  die  Adresse,  von  der  an 
Variable  gespeichert  werden. 
Gleichzeitig  erfährt  man  so,  wo  ein 
Basic-Programm  aufhört,  denn  die 
einfachen  Variablen  werden  direkt 
hinter  dem  Basic-Programmtext  ge¬ 
speichert.  Jetzt  fahren  wir  den  Cur¬ 
sor  hoch  auf  die  45  in  der  zuletzt  ein¬ 
gegebenen  Zeile  und  ändern  sie  um 
auf  47,  dann  »RETURN«.  Es  er¬ 
scheint 
10  8  2058 

Ab  2058  beginnen  jetzt  die  indi¬ 
zierten  Variablen.  Normalerweise 
fangen  sie  im  Leerzustand  auch  bei 
205 1  an.  Wir  haben  aber  eine  Varia¬ 
ble  A  definiert  und  die  verschiebt 
die  indizierten  Variablen  um  7  By¬ 
tes.  Als  Nebeneffekt  sehen  wir  so, 
daß  eine  Variable  in  7  Bytes  gela¬ 
gert  wird.  Zur  Kontrolle  geben  wir 
nochmal  ein: 


Bild  5.  Umrechnung  von  131  (LSB)  und  164  (MSB)  in  Hexzahlen 


lsb  bei  den  Bits. 

MSB-  -A4 

LSB-  -83 

Beide  sind  kleiner  als  $F  und  kön¬ 
nen  deswegen  im  Speicher  unter¬ 
gebracht  werden.  Das  Betriebssy¬ 
stem  notiert  sie  sich  in  den  Haus¬ 
nummern  770  und  771  auf  page  3. 
Sehen  wir  doch  einfach  mal  nach! 
Geben  Sie  ein: 

PRINT  PEEK  (770),  PEEK  (771) 
»RETURN« 

Wir  erhalten:  131  164 

Lassen  Sie  sich  nicht  verwirren! 
Rechnen  wir  diese  Angaben  mal  um 
in  Hex-Zahlen  (Bild  5).  Wir  finden  al¬ 
so  die  im  Bild  5  dargestellten  Werte. 

Das  sieht  alles  komplizierter  aus 
als  es  ist.  Mit  etwas  Übung,  die  wir 
uns  jetzt  zulegen  wollen,  werden  Sie 


Speicher  : 

77V 

dezimal  : 

A3  V 

A  G  7 

hex 

4  8  3 

$  n  <t 

a,tso 

LS  ß 

MSB 

$  FJ  &  3  =  de.-z  .tyZAAS' 

Bild  6.  Inhalt  der  Speicherstellen  770  und  771 


i  ■'T,T',Tine-cie 
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CLR:PRINT  PEEK(47),  PEEK(48) 
»RETURN« 

und  erhalten  3  8  na  also! 

Diese  Untersuchung  können  Sie 
noch  weiterführen,  wenn  Sie  wollen. 
Sie  erhalten  so  die  Werte  in  Tabelle 
2. 

Bevor  wir  jetzt  an  die  erste  Ände¬ 
rung  gehen,  sehen  wir  mal  nach, 
wieviel  freies  Basic-RAM  wir  zur 
Verfügung  haben: 

PRINT  FRE(0)  +  65536  »RETURN« 

Es  sollte  auch  bei  Ihnen  erscheinen: 
38909. 

Rechnen  Sie  entsprechend  Bild  7 
nach. 

Nun  wollen  wir  unserem  Computer 
einreden,  sein  Basic-Speicher  sei 
schon  bei  1 2288  statt  bei  40960  zu  En¬ 
de.  Zunächst  müssen  wir  umrech¬ 
nen.  Wir  sehen  in  die  Tabelle  2  und 
rechnen  entsprechend  Bild  8  wie 
gehabt.  Also  ist  das  MSB  =  $30  und 
das  LSB  =  $00.  Jetzt  rechnen  wir 
wieder  ins  Dezimalsystem  um: 

3*16  =  48  0*16  =  0 

0*  1  =  0  und  0*1  =  0 


MSB  =  48  LSB  =  0 

Die  höchste  Basic- Adresse  ist  (sie- 


Bild  7.  Der  freie  Basicbereich  mit  den 
entsprechenden  Zeigern 


he  Tabelle  2)  in  MEMSIZ  gespei¬ 
chert  und  deshalb  geben  wir  ein: 
POKE  55,0:POKE  56,  48  »RETURN« 
Nun  sehen  wir  nach  mit 
PRINT  FRE(0)  und  erhalten  10237. 

Es  ist  also  geglückt.  Der  noch  freie 
RAM-Bereich  oberhalb  von  12288 
wird  für  Basic  vom  Computer  nicht 
mehr  wahrgenommen.  Das  nennt 
man  »schützen«  eines  Speicherbe¬ 
reiches  vor  dem  Überschreiben 
durch  Basic.  Gleichzeitig  sollte  man, 
falls  im  Basic-Programm  auch 


40960  I 

Ibasic-romX/ 


Strings  verwendet  werden,  auch 
noch  FRETOP  berücksichtigen  mit: 
POKE  51,  0:POKE  52,  48  »RETURN« 

Der  nun  verfügbare  Bereich  ist  in 
Bild  9  zu  erkennen.  In  SpeiLu  wird 
dieser  Schutz  in  Zeile  10  vollzogen. 
Jedesmal,  wenn  man  einen  Teil  des 
Basic-Speichers  für  andere  Dinge 
verwenden  will  als  für  Basic,  muß 
man  diesen  Teil  in  der  gezeigten 
Weise  schützen. 

Sie  werden  vielleicht  sagen,  daß 
Sie  soooo  lange  Basic-Programme 
kaum  verwenden  und  nie  in  Regio¬ 
nen  über  20000  oder  25000  geraten 
werden.  Leider  ist  das  ein  Irrtum. 
Denn  die  Speicherung  von  Strings 
geschieht  ab  Adresse  40960  ab¬ 
wärts  (siehe  Bild  7).  Ein  »sicherer« 
Bereich  im  Basic-Speicher  (ohne  ihn 
schützen  zu  müssen)  könnte  höch¬ 
stens  irgendwo  ungewiß  mitten  drin 
sein,  wo  weder  von  unten  das  Basic- 
Programm  mit  seinen  Variablen 
noch  von  oben  die  Strings  anstoßen 
würden.  Darauf  würde  ich  mich 
aber  lieber  nicht  verlassen.  Schüt¬ 
zen  ist  besser.  Wir  werden  im  Ver¬ 
lauf  der  weiteren  Folgen  noch  eine 
Reihe  weiterer  Möglichkeiten  be¬ 
nutzen  um  die  Speicherorganisation 
umzukrempeln. 


Und  oder?  Oder  und? 
Die  Befehle  AND,  0R 


Jetzt  haben  wir  bemahe  alles 
Handwerkszeug  beieinander,  um 
unabhängig  von  irgendwelchen 
Fertigprogrammen  uns  selbst  neue 
Zeichen  zu  definieren  und  auch  zu 
bestimmen,  woher  der  Computer 
sie  dann  holen  soll.  Nur  eine  Tatsa¬ 
che  stört  noch.  Wir  wissen  jetzt  zwar, 
wie  wir  in  unserem  C  64  ganze  Bytes 
ändern  können  indem  wir  Adressen 
POKE-fertig  umrechnen  und  dann 
emPOKEn.  Was  tun  wir  aber,  wenn 


AENDERUNGEN  F^LJEIFC  S  F"  EI  I  L_  LJ 


READY 

Änderungen  von  Speilu,  um 
eigene  Zeichen  kreieren  zu 

140  PRINT : PRINT"  (3)  AENDERN  EINES  ZEICHENS"  können 

145  PRINT: PRINT"  (4)  PROGRAMM-ENDE" 


READY. 


170  A=VAL(AS) :IFA<00RA>4THEN160 
1B0  ONAGDSUB1000, 2000, 3000, 4000 

ERGAENZ  UN<3  FUER  S  F*  E  I  L_  LJ 


3000  PRI NTCHRJ ( 1 47) ; CHR* ( 18) j TftB U 0) ; " AENDERN  VON  ZEICHEN" 

3010  PRINT: PRINT"  ES  K0ENNEN  ZEICHEN  GEANEDERT  WERDEN" 

3020  PR  I  NT " I NDEM  DER  'BILDSCHIRM-CODE'  DES  ZEICHENS"; 

3030  PRINT"  EINGEGEBEN  WIRD.  (  0  -  5  1  1 ) " :  I FTS  =  0THE NGOSUB40000 
3035  PRINT: PRINT"  ANDERN  SIE  DIE  BINAERZAHL  MIT" 

3037  PR I NT " ' 0 '  ODER  '1'  ENTSPRECHEND.  DANN  <RETURN>“ 

3040  PRINT: INPUT"C0DE  :  " ; A: IFAC0ORA >51 1 THENRETURN 
3050  PRINTCHRI (147) : F0RAD= 1 22B8+8*AT0 1 2288+B* A+7 
3060  DE  =  PEEK (AD) ; G0SUB 10000 : GOSUB200 00: G0SUB3 0000: NE X TAD 
3070  PRINTCHRJI 19) : AD=AD-9 

30S0  F0Rß=lT0B:PRINTTAB<19!;: INPUT AI. -AD-AD+1; GOSUB50000 : GOSUE 1 0000 : GOSUB20 000 

3090  PRINTCHRIt 145) ;  " 

3100  PRINTCHRK145) ;CHRI(145) : GOSUB30000 : POKE AD , DE : NEXTO 
3110  GETAf:  IFAI=" "THEN31 10 
3120  RETURN 


READV. 


50000  DE  =  0 : FORI  =  1  TOB: IFMIDI ( AI , I , 1 )  =  " 1  "THENDE  =  DE  +  2A !8- I ) : 
50010  NEXT I : RETURN 

READY. 
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gebnis  produzieren.  Zunächst  mal 
zu  AND.  Wir  kennen  das  von  Basic 
her  zum  Beispiel  in  der 
IF. .  .THEN.  .Verzweigung: 

5  IF  Ä  =  2  ÄND  B  -  200  THEN  10 
Nur  dann,  wenn  A  =  2  und  B  =  200 
ist,  erfolgt  ein  Sprung  nach  Zeile  10, 
das  heißt,  wenn  beide  miteinander 
verknüpften  Bedingungen  erfüllt 
sind,  ist  das  Ergebnis  der  Verzwei¬ 
gung  erzielt.  Bei  binären  Zahlen  ist 
das  einfacher: 

1  AND  1=1.  Wenn  also  beide  Zif¬ 
fern  1  sind,  ist  das  Ergebnis  1.  Man 
faßt  das  gerne  in  einer  Tabelle  zu¬ 
sammen  (Tabelle  3). 

Wie  wendet  man  das  an?  Nehmen 
wir  an,  ein  Byte  sähe  binär  so  aus: 
1111  1011 

1111  1011  unser  Byte 
0000  1111  eine  sogenannte 
Maske 

ÄND  _ 


0000  1111  unser  Ergebnis 

Halt!  Geben  Sie  das  aber  nicht 
wirklich  ein,  denn  damit  verändern 
Sie  den  Basic-Warmstart-Vektor 


und  den  brauchen  wir  noch.  Sollten 
Sie’s  schon  getan  haben,  dann  er¬ 
freuen  Sie  sich  noch  ein  wenig  des 
Effektes  und  ziehen  Sie  dann  die 
Notbremse:  Computer  aus- und  wie¬ 
der  anschalten, 

Nun  zu  OR.  Auch  das  kennen  wir 
vom  Basic  her,  zum  Beispiel: 

5  IF  A  =  2  QR  B  =  200  THEN  10 

Wenn  also  A  =  2  ist  oder  wenn  B 
=  200  ist  oder  wenn  beide  Bedin¬ 
gungen  erfüllt  sind,  erfolgt  der 
Sprung  nach  10.  Ebenso  wie  für 
AND  kann  man  auch  hier  die  Ver¬ 
hältnisse  am  besten  mit  einer  Tabel¬ 
le  übersehen  (Tabelle  4). 

Wir  möchten  es  verändern,  so 
daß  es  zu  0000  1011  wird.  Dann  set¬ 
zen  wir  die  AND-Operation  ein: 
Das  heißt,  alle  Bits,  die  mit  einer  1 
AND-verknüpft  worden  sind,  blei¬ 
ben  unverändert.  Alle  Bits,  die  da¬ 
gegen  mit  einer  0  AND-verknüpft 
wurden,  sind  jetzt  0.  Anstelle  der 
ganzen  Rechnerei  muß  also  jetzt  nur 
die  Maske  umgerechnet  werden: 
00001111  =  15  dezimal.  Nehmen  wir 
an,  unser  Byte  wäre  die  Adresse 


21.  Das  entspricht  dem  Binärwert 
0001  TOI. 

Wobei  der  eingerahmte  Teil  also 
für  den  Ort  der  Zeichen  zuständig 
ist.  In  der  Tabelle  5  sehen  Sie,  wel¬ 
che  Kombinationen  auf  welche  Spei¬ 
cherorte  als  Startadressen  unserer 
Zeichenmuster  deuten. 

Wenn  wir  nun  also  einen  anderen 
Ort  eingeben  wollen,  dürfen  wir  nur 
die  Bits  1  bis  3  verändern.  Lassen 
Sie  uns  die  Zeichen  nicht  mehr  von 
4096  an,  sondern  von  6144  an  ge¬ 
speichert  haben!  Zunächst  einmal 
müssen  die  Bits  4  bis  7  vor  jeder  Än¬ 
derung  geschützt  sein  und  die  Bits  0 
bis  3  gelöscht  werden: 


dez.  21 


0001  0101 


dez.  240  1111  0000 


das  ist  unser 
PEEK  (53272) 
eine  Maske,  die 
AND-verknüpft 
wird 


dez.  16 


0001  0000 


das  ist:  PEEK 
(53272)  AND  240 


Jetzt  können  wir  gezielt  Bits  setzen. 
Wir  brauchen  die  Kombination 
01 IX.  Wenn  wir  für  X  einfach  0  an- 
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nehmen  (das  geht,  weil  Bit  0  hier 
nicht  beachtet  wird)  dann  ergibt  das 
einen  Dezimalwert  von  6  (siehe  Ta¬ 
belle  5). 


dez.  16 
dez.  6 


0001  0000 
0000  0110 


unser  Zwischen¬ 
wert 

Maske  wird  OR 
verknüpft 


a)  Sobald  wir  dem  Computer  gesagt 
haben,  wo  er  seine  Zeichen  herho- 
len  soll,  kennt  er  alle  die  Zeichen 
nicht  mehr,  die  nicht  mit  kopiert 
worden  sind.  Man  muß  sich  also  vor¬ 
her  überlegen,  welche  Zeichen 
man  braucht  und  erst  dann  kopie¬ 


dez.  22 


00010110  unser  Endwert 


10  POKE  52,  48:  POKE  56,  48 
Für  das  folgende  sollten  Sie  sich  das 
Unterprogramm  ab  Zeile  40000  von 
SpeiLu  ansehen. 

B.  Abschalten  des  Interrupt.  Das 
macht  einen  Besuch  beim  CIA#  1, 
Hausnummer  56  334  nötig.  Mit  einer 
AND-Operation  knipsen  wir  die  Un¬ 
terbrechung  ab: 

20  POKE  56  334,  PEEK  (56  334)  AND 
254 

C.  Nachdem  der  Computer  nicht 
mehr  per  Interrupt  die  Etagen  ab¬ 
läuft,  muß  er  behutsam  zum 
Zeichen-ROM  geführt  werden: 

30  POKE  1,  PEEK  (1)  AND  251 
Behutsam  deswegen,  weil  wir  Byte 


Bild  10.  Der  kopierte  Zeichensatz  im  RAM 


Alles  in  allem  geben  wir  ein: 
POKE  53272,  (PEEK  (53272)  AND 
240)  OR  6 

Das  können  Sie  gefahrlos  eingeben 
und  sich  am  Ergebnis  freuen.  Wenn 
Sie  danach  übrigens  mal  mit  PEEK 
(53272)  abfragen,  werden  Sie  nicht 
22,  sondern  23  erhalten,  was  an  Bit  0 
liegt,  das  wir  so  nicht  beeinflussen 
können. 

Frankensteins 
freundliches  Monster: 
Eigene  Zeichen 

Wieso  kann  man  eigentlich  eige¬ 
ne  Zeichen  definieren,  wo  es  sich 
doch  um  ein  Zeichen-ROM  handelt, 
woraus  der  C  64  seine  Zeichen  be¬ 
zieht?  Zum  Umbauen  der  Zeichen 
muß  man  doch  in  die  Punktmatrix 
hineinschreiben  und  das  geht  nur 
ins  RAM.  Na,  dann  kopieren  wir 
doch  einfach  das  Zeichen-ROM  in 
den  RAM-Bereich.  Dort  können  wir 
dann  nach  Herzenslust  herumPO- 
KEn.  Dazu  muß  man  allerdings  wis¬ 
sen,  daß  drei  Dinge  zu  beachten 
sind: 


ren  (siehe  dazu  in  Folge  1  die  Tabel¬ 
le  2). 

b)  In  Folge  1  ist  erwähnt  worden, 
daß  der  Computer  «v  >  gebaut  ist, 
daß  er  ständige  Wechsel  durch¬ 
führt  zwischen  den  Etagen  unseres 
Speichers.  Außerdem  verrichtet  er 
noch  eine  Reihe  anderer  Tätigkei¬ 
ten  nach  einem  schnell  vor  sich  ge¬ 
henden  System  von  lauter  Unter¬ 
brechungen.  Beim  Kopiervorgang 
sollte  keine  Unterbrechung  stattfin¬ 
den,  weil  sich  der  Computer  solan¬ 
ge  auf  das  Zeichen-ROM  konzen¬ 
trieren  soll.  Man  muß  also  das  soge¬ 
nannte  Interrupt-System  während 
des  Kopierens  abschalten. 

c)  Wir  kopieren  unsere  Zeichen  ins 
RAM,  müssen  den  dafür  verwende¬ 


1  aus  der  ersten  Folge  noch  in  ungu¬ 
ter  Erinnerung  haben.  Wir  werden 
es  später  besser  kennenlernen. 

D.  Nun  steht  dem  Kopieren  nichts 
mehr  im  Wege.  Wir  kopieren  alles: 
40  FOR  I  =  0  TO  4  095:POKE  12  288 
+  I,  PEEK  (53248  +  I):  NEXT 

Das  dauert  allerdings  eine  Weile. 

E.  Nun  muß  das  Interrupt-System 
wieder  in  den  Ausgangszustand  zu¬ 
rückversetzt  werden: 

50  POKE  1,  PEEK(l)OR  4 
60  POKE  56  334,  PEEK(56  334)OR  1 

F.  Jetzt  teilen  wir  dem  Computer  mit, 
daß  er  in  Zukunft  seine  Zeichen  ab 
12  288  und  nicht  mehr  im  Zeichen- 
ROM  findet: 

70  POKE  53  272,  (PEEK(53  272)  AND 
240)  OR  12 


Byte 

binär 

dezimal 

Byte 

binär 

dezimal 

12296 

00011000 

=  24 

12296 

01100110 

=  102 

12297 

00111100 

=  60 

12297 

00000000 

=  0 

12298 

01100110 

=  102 

12298 

00011000 

=  24 

12299 

01111110 

=  126 

12299 

00011000 

=  24 

12300 

011001 10 

=  102 

12300 

10000001 

=  129 

12301 

01100110 

=  102 

12301 

01100110 

=  102 

12302 

01 1001 10 

=  102 

12302 

00111100 

=  60 

12303 

00000000 

=  0 

12303 

00000000 

=  0 

Bild  11.  Das  Zeichen  A  jetzt  im  RAM 

ten  Speicherraum  also  vor  dem 
Überschreiben  durch  ein  Basic- 
Programm  schützen. 

Es  empfiehlt  sich  folgende  Vorge¬ 
hensweise: 

A.  Schützen  des  RAMs.  Dazu  wollen 
wir  den  Bereich  verwenden,  der 
auch  in  SpeiLu  eine  Rolle  spielt 


114 


Bild  12.  So  soll  unser  neues  »A«  aussehen 

Nach  dem  RUN  merken  Sie  — 
wenn  alles  richtig  war  —  noch  kei¬ 
nen  Unterschied,  außer,  daß  wir 
uns  eine  Menge  Speicherplatz  weg¬ 
geschnitten  haben.  Aber  nun  wollen 
wir  ans  Zeichenumbauen  gehen. 
Nehmen  wir  mal  an,  daß  wir  den 
Buchstaben  A  zu  langweilig  finden. 
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Wir  werden  ihm  ein  neues  Image 
verleihen.  Wenn  Sie  sich  an  die  Fol¬ 
ge  1  erinnern,  dann  ist  der  Buchsta¬ 
be  A  nach  dem  Klammeraffen@  der 
zweite  Buchstabe.  Sein  erstes  Byte 
ist  an  achter  Stelle  des  Zeichen- 
ROMs,  also  ab  53  256,  zu  finden. 
Nachdem  wir  jetzt  kopiert  haben, 
finden  wir  ihn  ab  12296  (siehe  Bild 
10),  und  jetzt  verstehen  wir  auch  das 
Bild  8  in  Folge  1  als  gesetzte  und  ge¬ 
löschte  Bits  anzusehen  (Bild  1 1). 

Wir  zeichnen  uns  ein  8  x  8-Raster 
und  konstruieren  darin  unser  neues 
»A«  (Bild  12). . 

Dann  berechnen  wir  die  Dezimal- 


Adresse 

Normaler  Inhalt  im  Leerzustand 

Commo- 

dore 

Name 

(Label) 

LSB 

MSB 

LSB 

MSB 

Dezimal 

Bedeutung 

TXTTAB 

43 

44 

1 

8 

2049 

Anfang  Basic-Text 

VARTAB 

45 

46 

3 

8 

2051 

Variablenstart 

ARYTAB 

47 

48 

3 

8 

2051 

Arraystart 

STREND 

49 

50 

3 

8 

2051 

Arrayende  +  1 

FRETOP 

51 

52 

0 

160 

40960 

Stringstart 

MEMZIZ 

55 

56 

0 

160 

40960 

höchste  Basic-Adresse 

MEMSTR 

641 

642 

0 

8 

2048 

RAM-Start  für  Betriebs¬ 
system 

MEMSIZ 

643 

644 

0 

160 

40960 

RAM-Ende  für  Be¬ 
triebssystem 

Tabelle  2.  Die  wichtigsten  Adressen  mit  ihren  Inhalten  in  der  Zeropage 


$ 

dez. 

$ 

dez. 

$ 

dez. 

$ 

dez. 

0 

0 

0 

0 

0 

0 

0 

0 

1 

4096 

1 

256 

1 

16 

1 

1 

2 

8192 

2 

512 

2 

32 

2 

2 

3 

12288 

3 

768 

3 

48 

3 

3 

4 

16384 

4 

1024 

4 

64 

4 

4 

5 

20480 

5 

1280 

5 

80 

5 

5 

6 

24576 

6 

1536 

6 

96 

6 

6 

7 

28672 

7 

1792 

7 

112 

7 

7 

8 

32768 

8 

2048 

8 

128 

8 

8 

9 

36864 

9 

2304 

9 

144 

9 

9 

A 

40960 

A 

2560 

A 

160 

A 

10 

B 

45056 

B 

2816 

B 

176 

B 

11 

C 

49152 

C 

3072 

C 

192 

C 

12 

D 

53248 

D 

3328 

D 

208 

D 

13 

E 

57344 

E 

3584 

E 

224 

E 

14 

F 

61440 

F 

3840 

F 

240 

F 

15 

Tabelle  1.  Umrechnungstabelle  von  Hex  in  Dez. 


werte  der  Bytes  und  geben  schließ¬ 
lich  ein: 

80  POKE12296,  102:POKE12297,0: 
POKE12298,  24:POKE12299,24: 

POKE12300,  129 

90  POKE12301,  102:POKE12302,60: 
POKE 12303,  0 

Wenn  Sie  dieses  Porgramm  mit 
RUN  starten,  dann  lächelt  Sie  künf¬ 
tig  das  A  freundlicher  an  als  bisher. 
Natürlich  läßt  sich  das  alles  auch 
viel  eleganter  lösen.  Besonders  die 
Zeilen  80  und  90  können  durch  eine 
kleine  Schleife,  die  DÄTA-Zeilen 
liest  und  in  den  Speicher  POKEd, 
ersetzt  werden.  Die  Adressen  kön¬ 
nen  durch  Multiplikation  des 
Commodore-Codes  mit  8  berechnet 
werden: 

Startadresse  des  Zeichens  mit  Code 
C=  12288  +  8*C 

Außerdem  finden  Sie  im  An¬ 
schluß  das  erweiterte  Programm 
SpeiLu,  das  es  auf  einfache  Weise 
gestattet,  Zeichen  zu  ändern.  Nach 
dem  Ändern  der  Zeichen  kann  auch 
der  normale  Zeichensatz  wieder  be¬ 
nutzt  werden  —  wenn  nötig  —  durch 
Eingabe  des  ursprünglichen  Wer¬ 
tes  21  in  Hausnummer  53272.  Falls 
Sie  SpeiLu  benutzt  haben,  gibt  es 


zwei  Möglichkeiten,  den  alten  Zu¬ 
stand  wieder  herzustellen: 

1)  Computer  aus-  und  wieder  an¬ 
schalten  oder 

2)  POKE  53272,  21:POKE52,160: 
POKE56,  160  (Warum,  das  wissen 
Sie  ja  jetzt  aus  dieser  Folge) 

Schließlich  noch  eine  Berner- 


AND 

1 

0 

1 

1 

0 

0 

0 

0 

Tabelle  3.  Die  AND-Verknüpfung 


kung:  Obwohl  manche  Basic- 
Befehle  nach  der  Änderung  etwas 
vergnügter  aussehen  als  vorher, 
funktioniert  zum  Beispiel  T?B(5)  ge¬ 
nausogut  wie  TAB(5).  Testen  Sie 
mal:  TAB(10)” ABRAKADABRA". 

Wenn  Sie  auf  Kleinschreibung 
oder  REVERSE  umschalten,  sieht  al¬ 
les  wieder  normal  aus. 

Damit  sei ’s  für  heute  genug.  Es 
war  eine  schwere  Etappe.  Sie  ha¬ 
ben  sich  tapfer  durch  das  Dornen- 
gestrüpp  geschlagen!  Sie  werden 
es  nicht  bemerkt  haben  aber  wir 
sind  Dornröschen  schon  ziemlich 
nahe  gekommen.  Bis  zum  nächsten 
Aufbruch  können  Sie  sich  die  Zeit 
damit  vertreiben,  einen  eigenen 
Zeichensatz  herzustellen. 

(Heimo  Ponnath) 


Hier  noch  die  Lösungen  der  Aufgaben: 

a)  11001,  10000,  101111,  10000000 

b)  17.  14.  240 

c)  146,  55080,  40961 

d)  $FFFE,  S800,  $52F3 

e)  POKE  770,  243:  POKE  771,  82 


OR 

1 

0 

1 

1 

1 

0 

1 

0 

Tabelle  4.  Die  OR-Verknüpfung 


Zahlen¬ 

wert 

Bits  0-3 

(Bit  0  =  0) 

Bitmuster  des 

Byte  5372 

Startadresse  Zeichen¬ 
speicher 
dez.  hex 

0 

XXXXOOOX 

0 

$0000 

2 

XXXX001X 

2048 

$0800 

4 

XXXX010X 

4096 

$1000 

Einschalt¬ 

zustand 

6 

XXXX011X 

6144 

$1800 

8 

XXXX100X 

8192 

$2000 

10 

XXXX101X 

10240 

$2800 

12 

XXXX110X 

12288 

$3000 

14 

XXXX111X 

14336 

$3800 

Tabelle  5.  Das  Bitmuster  und  die  Startadresse  des  Zeichenspeichers  im  Byte  53272 
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ein  Precompiler  für  Basic 


An  anderer  Stelle  in  dieser  Zeit¬ 
schrift  (oder  auch  in  den  unten 
aufgeführten  Büchern)  können 
Sie  sich  ausführlich  über  die  Grund¬ 
lagen  der  strukturierten  Program¬ 
mierung  informieren.  Aus  diesem 
Grund  werden  wir  uns  hier  darauf 
beschränken,  einige  Aspekte  kurz 
anzusprechen  und  im  übrigen  vor¬ 
zustellen,  was  Strubs  m  dieser  Hin¬ 
sicht  zu  bieten  hat, 

Gehören  Sie  auch  zu  denjenigen, 
die  sich  manchmal  ein  Programm 
aus  einer  Zeitschrift  vornehmen,  um 
zu  analysieren,  wie  es  arbeitet  oder 
um  eventuell  Teile  des  Programms 
für  eigene  Programmprojekte  zu 
verwenden?  Dann  erinnern  Sie  sich 
bestimmt  an  Programme,  bei  denen 


Sie  sich  verzweifelt  von  Sprung  zu 
Sprung  bewegen  und  nach  nicht  all¬ 
zu  langer  Zeit  vollkommen  den 
Überblick  verlieren.  Oder  viel¬ 
leicht  kennen  Sie  folgende  Situation: 
Sie  schreiben  ein  Programm  und  er¬ 
innern  sich  angesichts  eines  be¬ 
stimmten  Problems,  daß  Sie  ein 
ganz  ähnliches  Problem  schon  ein¬ 
mal  in  einem  anderen  Programm 
gelöst  haben.  Aber  sobald  Sie  sich 
den  alten  Programmtext  vorneh¬ 
men,  um  den  entsprechenden  Pro¬ 
grammteil  in  ihr  neues  Programm  zu 
übernehmen,  müssen  Sie  enttäuscht 
feststellen,  daß  diese  spezielle  Pro¬ 
blemlösung  so  sehr  in  das  Pro¬ 
grammgeflecht  verwoben  ist,  daß 
es  Ihnen  weitaus  einfacher  scheint, 


den  entsprechenden  Programmteil 
vollkommen  neu  zu  entwickeln. 

Die  Ursache  für  solche  Erschei¬ 
nungen  liegt  zum  Teil  dann,  daß  vie¬ 
le  Basic-Programme  mehr  oder  we¬ 
niger  aus  der  Sicht  des  Computer 
der  »Basic-Maschine«  —  direkt  am 
Computer  nach  dem  Verfahren  von 
Versuch  und  Irrtum  entwickelt  wer¬ 
den.  Das  kann  in  Einzelfällen  sogar 
soweit  führen,  daß  man  zum  Schluß 
zwar  sieht,  daß  das  Programm  läuft, 
aber  selbst  nicht  so  recht  weiß,  war¬ 
um  eigentlich  und  wie  es  funktio¬ 
niert.  Der  Hauptgrund  für  solche 
Unübersichtlichkeit  aber  liegt  in 
der  Verwendung  zahlreicher  wil¬ 
der  Sprünge  und  ausgefallener 
Programmier-Tricks.  (Daß  die  Ver¬ 
wendung  von  GOTO-Anweisungen 
den  mathematischen  Beweis  für  die 
Korrektheit  von  Programmen  prak¬ 
tisch  unmöglich  macht,  ist  für  den  In¬ 
formatiker  interessant,  braucht  uns 
hier  aber  nicht  zu  interessieren). 

Den  entgegengesetzten  Weg 
geht  die  strukturierte  Programmie¬ 
rung.  Sie  bedeutet  vor  allem  sorgfäl¬ 
tige  Planung  und  den  Verzicht  auf 
GOTOs  und  unübersichtliche  Pro¬ 
grammiertricks.  Hier  steht  die  sy¬ 
stematische  Analyse  des  Problems 
im  Vordergrund.  Die  eigentliche 
Codierung,  das  heißt  die  Formulie¬ 
rung  des  Programmtextes  in  einer 
bestimmten  Programmiersprache, 
spielt  nur  eine  untergeordnete 
Rolle. 

In  der  Problemanalyse  geht  es 
darum,  ein  gegebenes  Problem  in 
relativ  selbständige  Teilprobleme 
zu  zerlegen  und  deren  Beziehungen 
zueinander  festzulegen.  Den  Auf¬ 
bau  des  Programms  Strubs  mit  den 
jeweiligen  Zeilennummern  können 
Sie  Bild  1  entnehmen.  Das  komplet¬ 
te  Objektprogramm  ist  ebenfalls  ab¬ 
gedruckt  (siehe  Listing). 

Entsprechend  setzt  sich  das  struk¬ 
turierte  Programm  aus  einer  Reihe 
möglichst  selbständiger  Programm¬ 
einheiten  zusammen.  Dieses  Vorge¬ 
hen  spiegelt  sich  im  Konzept  der 
Blöcke  und  Module. 

Ein  Block  ist  eine  Anweisung  oder 
eme  Folge  von  Anweisungen  mit  ge¬ 
nau  einem  Eingang  und  genau  ei¬ 
nem  Ausgang.  Das  heißt  man  darf 
weder  in  einen  solchen  Block  hin¬ 
einspringen,  noch  aus  diesem  Block 
herausspringen.  Solche  Blöcke  kön¬ 
nen  entweder  aneinander  gereiht 
oder  beliebig  tief  ineinander  ge¬ 
schachtelt  werden;  sie  dürfen  sich 


ln  der  letzten  Ausgabe 
haben  Sie  den  Unterschied  zwischen  einem  Compiler 
und  einem  Interpreter  erfahren  und  sich 
kurz  über  die  Vorteile  von  Strubs  informieren  können. 
Hier  nun  werden  die  in  Strubs  implementierten 

- G  Befehls¬ 
strukturen 
erläutert  und 
das  Objekt¬ 
programm 
von  Strubs 
selbst 
vorgestellt. 
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aber  nicht  überschneiden.  In  letzte¬ 
rer  Hinsicht  verhält  es  sich  mit  die¬ 
sen  Blöcken  also  genauso,  wie  bei 
den  bekannten  FOR-Schleifen  in  Ba¬ 
sic. 

Ein  strukturiertes  Programm  be¬ 
steht  nun  ausschließlich  aus  einer 
geordneten  Hierarchie  solcher 
Blöcke.  Der  kleinste  mögliche  Block 
besteht  aus  einer  einzelnen  Anwei¬ 
sung,  wie  zum  Beispiel  PRINT 
"Text”.  Der  größte,  umfassendste 
Block  besteht  aus  dem  Programm 
selbst. 

Da  ist  zunächst  einmal  die  einfa¬ 
che  IF-Anweisung,  die  schon  von 
Basic  her  bekannt  ist,  Dieses  norma¬ 
le  Basic-IF  kann  natürlich  wie  alle 
Basic-Befehle  weiterhm  benutzt 
werden.  Zusätzlich  bietet  Strubs 
aber  eine  erweiterte  Form,  bei  wel¬ 
cher  der  THEN-Teil  nicht  auf  den 
Rest  einer  Programmzeile  begrenzt 
ist,  sondern  beliebig  viele  Zeilen 
umfassen  kann,  die  durch  den  Be¬ 
fehl  '!FT  —  einfach  ein  umgedrehtes 
IF  —  abgeschlossen  werden.  Ein 
Beispiel: 

10  !  IF  X  =  Y  THEN 
20  :  PRINT  ”X  und  Y" 

30  :  PRINT  "  SIND  GLEICH" 

99  !FI 

Ist  die  Bedingung  hinter  IF  erfüllt, 
so  werden  die  Zeilen  zwischen  der 
IF-  und  der  FI-Anweisung  ausge¬ 
führt,  ansonsten  wird  das  Programm 
sofort  hinter  der  Fl-Zeile  fortgesetzt. 

Daneben  existiert  selbstverständ¬ 
lich  auch  die  vollständige  Form 
10  !IF  X  =  Y  THEN 
20:  PRINT  "GLEICH' 

50  !ELSE 

60  :  PRINT  "UNGLEICH" 

99  !FI 

Ist  die  Bedingung  erfüllt,  dann 
wird  der  Block  zwischen  IF  und  EL¬ 
SE  ausgeführt,  sonst  der  Block  zwi¬ 
schen  ELSE  und  FI. 

Für  den  Fall,  daß  mehr  als  nur 
zwei  Fälle  zu  unterscheiden  sind, 
bietet  Strubs  die  CASE- Anweisung: 


TRUE 

•  •  • 

EXIT-BEDINGUNGEN 

•  o  o 

Bild  3.  Struktogramm  der  Loop-Schleife 


40  !  OF  X  =  0  THEN 

45  :  PRINT  "GLEICH  0" 

60  !  OF  X>0  AND  Y  <XTHEN 
65  :  PRINT  ”X>0  UND  Y<X" 

80  !  ELSE 

85  :  PRINT  "KEINER  DER  FÄL¬ 

LE  TRIFFT  ZU" 

99  !  ECASE 

Mit  dieser  Struktur  können  belie¬ 
big  viele  Fälle  unterschieden  wer¬ 
den,  wobei  jedes  OF  mit  einer  belie¬ 
bigen  Bedingung  verbunden  wer¬ 
den  kann.  Es  sollte  aber  darauf  ge¬ 
achtet  werden,  daß  sich  die  Bedin¬ 
gungen  gegenseitig  ausschließen 
(sonst  wird  das  erste  Auftreten  einer 
erfüllten  Bedingung  gewählt).  Nach 
der  Bearbeitung  des  entsprechen¬ 
den  Falles  'wird  das  Programm  im¬ 
mer  hinter  ECASE  fortgesetzt.  Die 
Möglichkeit,  daß  keiner  der  Fälle 


zutrifft,  kann  mit  Hilfe  der  ELSE- 
Anweisung  behandelt  werden.  Ist 
dies  nicht  erforderlich',  kann  der 
ELSE-Teil  auch  entfallen. 

Damit  kommen  wir  nun  zu  den 
Schleifen.  Die  FOR-Schleife  kann 
wie  bisher  benutzt  werden.  Die 
WHILE-Schleife  wird  durchlaufen, 
solange  die  Bedingung  erfüllt  ist. 
Anschließend  wird  das  Programm 
hinter  EWHILE  fortgesetzt.  Da  die 
Bedingung  am  Anfang  der  Schleife 
abgefragt  wird,  kann  es  Vorkom¬ 
men,  daß  die  Schleife  auch  über¬ 
haupt  nicht  durchlaufen  wird.  Ein 
Beispiel: 

10  !  WHILE  X<5  !DO 
20:  PRINT  "IMMER  NOCH 
KLEINER  ALS  5" 

30  :  X  =  X  +  1 

99  IEWHILE 


51  PRINTT; "  M*MMW***M*M" 

52  PRINT  "  *  — STRUBS. 4  —  *" 

55  PRINT  "  *  M.TÜERK  #" 

57  PRINT  "  *  4352  HERTEN  *" 

58  PRINT  "  MMMMWU ***#*" 

70  I FN0T < PEEK <4S0R < PEEK < 46 > «46ANDPEEK < 45 > <3 > > THEN7? 
73  P0KE46 , 46 : P0KE45 , 3  =  P0KE46*256 , 0 : CLR 
75  : 

80  EP=46*256+1 
RERBV. 

8860  PRINT"aÄ!K?II!ll!]" 

8870  PRINT 

8880  PRINT  "#*  ZURUECK  MIT:  *#" 

8882  PRINT  "*#  '  !  '  [RETURN]  ##" 

8940  PRINT  ¥■" 


RERBV. 


Dies  Änderung 
sind  für  die  Anpassung 
von  Strubs  an  den  VC  20 
(mit  mindestens  16  KByte 
Erweiterung)  erforderlich. 


liötMi* 


ä.de 
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STRUBS. 4  OBJEKTPROGRAMM : 

3  REMSTRUBS4/4 .9.83 

51  PR I NT " T  J  TAB  <10  > ; " *M*M***#M***M " 

52  PRINTTAB<10>;"*  —STRUBS.  4  —  *" 

55  PRINTTflB<10);"#  M.TOERK  *" 

57  PRINTTAB<10)J"#  4352  HERTEN  *" 

58  PRINTTflB<10)J  *###**' " 

70  I FNOT  <  PEEK ( 46 ) <40GR  < PEEK  ( 46 ) a40R NBPEEK  <  45 ) <3 ) ) THEN75 
73  P0KE46.'  40 : POKE45.- 3  =  POKE40*256,  0 :  CLR 
75  : 

80  ER*40#236+1 
100  ÖOSUB45060 
140  GOTO40050 

230  I FPEEK  <  NC  >  =BLTHENNC=NC+ 1 : GOT 0250 
260  OPEEK(NC) 

265  IFCOKOTHEN320 

280  NC=NC+1  =  C=PEEK<NC>  *•  IFCANBCOKOTHEN280 
290  IFCTHEHNC=NC+1 :C-PEEK(NC) 

295  IFOBLTHEN250 

320  IFCOTETHENNC-NC+l:  RETURN 

350  Z$=Z£+CHR$<C>  :NC=NC+1 : C=PEEK<NC) :  I FCANDCOTETHEN350 
370  NC-NC+l 
330  RETURN 

55Ö  1  FL  EN  <  Z4  X4THENRETIJRN 
555  PRINTFNAD<ZA+2> 

560  fifl*Afl+LEN<Z$>+2 
565  H/i=flfl/256 

570  PR I  NT#  1 ,  CHR$ < AR-256#HZ > CHR$  ( HJi )  J  ZS i 
580  RETURN 
750  T$=" " 

790  : 

795  C=PEEK<NCVIFC=BPORC=KMÜRC=BL0RC=0THEN811 
800  NC=NC+1 : T$=T$+CHR$<C) 

810  GOT 0790 

811  = 

820  NONC+1 : IFOBLTHENGÖSUB250 
830  RETURN 
1050  GOSUB750 

1120  IFNOT (T$="TH1S")TH£N1 131 
1125  H®FNRB(Zfl+2) 

1130  00T01175 

1131  : 

1140  FORI=*0TOMP  =  IFMfl*<  I>OT$THENNENT 
1160  I F I >MPTHENER=2 : GOTO3050 : 

1170  H=MRJi<D+DI 
1.175  : 

1180  Z$=Z$+MIB$(STR$(H>,2) 

1130  RETURN 
1550  GOSUB750 

1 560  FOR I  =0TQBM :  I  FT$OBE$  <  I )  THENNEXT 
1565  I F I >BMTHENER=0 : OOTO8050 
1567  B$»BE*<I>:IFI«3THENB$*"IF" 

1569  1=1+1 

1570  OHIGOSUB1600, 1686, 1640,2010,2040, 2100 , 2160,2210,2260, 
2400,1710,1740,1810,1860 

1574  PRINTFNRIKZR+2); 

1575  IFIN-0THENPRINTTRB<Tfl> J B$ : RETURN 

1577  IFIN=1THENFRINTTRB(TR); B$ : TR=TR+1 : RETURN 
1579  IF IN»2THENPRINTTRB<TR-1 ) ; B$ : RETURN 
1581  I F I N=3THENTR=TR- 1 ; PRI NTTRB  <  TR ) ; B$ : RETURN 
1586  RETURN 

1600  IFSP>SMTHENER=3 :GOTO50000 
1605  IFLP>LMTHENER=5 : GOTO50000 

1610  SJi  C SP ) =LP : SP«SP+ 1 : LOZ CLP ,  0 > =FNflB ( ZR+2  >-B I : LP=LP+ 1 
1615  IN«1 : RETURN 

1640  SP-SP-1  ••  IFSP<0THENER=1  ■•GOTO30000 
1650  L0JS<3X<SP)/l)*FNAB<Zfl+2)-BI 
1660  IN=3: RETURN 

1680  IN=0:  RETURN  Listing.  Das  Objektprogramm  Strubs 


Von  der  WHILE-Schleife  unter¬ 
scheidet  sich  die  REPEAT-Schleife 
in  zwei  Punkten:  Erstens  wird  die 
Schleife  durchlaufen,  bis  die  Bedin¬ 
gung  erfüllt  ist,  also  solange  sie  nicht 
erfüllt  ist.  Zweitens  wird  die  Bedin¬ 
gung  erst  am  Ende  der  Schleife  ab¬ 
gefragt,  so  daß  die  Schleife  immer 
mindestens  einmal  durchlaufen 
wird.  In  diesem  wie  im  nächsten  Bei¬ 
spiel  bezieht  sich  die  Zeile  30  auf 
den  Fall,  daß  X  beim  Eintritt  in  die 
Schleife  größer  als  5  ist: 

10  !  REPEAT 

20  :  PRINT  "X  KLEINER  ALS  5” 

30  :  PRINT  "VIELLEICHT  ABER 
AUCH  NICHT" 

40  :  X  -  X+l 

99  !  UNTIL  X  >  =  5 

Eine  weniger  weit  verbreitete, 
aber  sehr  mächtige  Schleifenstruk¬ 
tur  stellt  die  LOOP-Schleife  dar  (sie 
befindet  sich  zum  Beispiel  in  der 
Programmiersprache  ADA): 

10  !  LOOP 

30  :  PRINT  "EVENTUELL  GROES- 
SER  ALS  5" 

40:  IF  X  >  =  5  THEN  !EXIT 
50  :  PRINT  "KLEINER  ALS  5"  ’ 

60  :  X  =  X+l 

99  IELOOP 

Verlassen  einer 
Endlosschleife 

Es  handelt  sich  dabei  um  eine 
Endlosschleife,  welche  mit  Hilfe  des 
Befehls  EXIT  verlassen  werden 
kann.  Diese  Schleife  bietet  im  we¬ 
sentlichen  zwei  Vorteile:  Zum  einen 
muß  die  Bedingung  nicht  entweder 
am  Anfang  oder  am  Ende  der 
Schleife  stehen,  sondern  kann  an  je¬ 
der  beliebigen  Stelle  innerhalb  des 
Blockes  abgefragt  werden.  Dar¬ 
über  hinaus  ist  das  Beenden  der 
Schleife  nicht  nur  von  einer  Bedin¬ 
gung  abhängig,  sondern  die  LOOP- 
Schleife  kann  beliebig  viele  EXIT- 
Anweisungen  enthalten  (dadurch 
wird  nicht  die  oben  erwähnte  For¬ 
derung  nach  nur  einem  Ausgang 
verletzt,  da  das  Programm  in  allen 
Fällen  hinter  dem  ELOOP  fortge¬ 
setzt  wird).  Damit  eignet  sich  diese 
Konstruktion  insbesondere  gut  für 
die  Behandlung  von  Ausnahmen 
wie  zum  Beispiel  von  Eingabebefeh¬ 
len  etc.  (eine  Angelegenheit,  die 
zum  Beispiel  in  Pascal  recht  um¬ 
ständlich  sein  kann,  falls  man  auf 
GOTOs  verzichten  will  oder  muß). 

In  Büd  2  (das  Zeichen  1  kennzeich¬ 
net  Kommentare)  sehen  Sie  em  Bei¬ 
spiel  für  geschachtelte  LOOP- 
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Schleifen.  Die  Ausführung  einer 
EXIT-Anweisung  bewirkt  die  Fort¬ 
setzung  des  Programms  bei  der  er¬ 
sten  Zeile  hinter  derjenigen  Schlei¬ 
fe,  welche  diese  EXIT-Anweisung 
am  nächsten  umschließt,  Im  Bei¬ 
spiel  enthält  die  äußere  Schleife 
zwei  EXIT- Anweisungen  —  eine  da¬ 
von  vor,  die  andere  hinter  der  inne¬ 
ren  Schleife.  Die  innere  Schleife  ent¬ 
hält  eine  EXIT-Anweisung.  Grafisch 
lassen  sich  blockstrukturierte  Pro¬ 
gramme  am  besten  durch  Strukto- 
gramme  —  anstelle  der  verbreite¬ 
ten  Flußdiagramme  —  darstellen. 
Das  Struktogramm  für  die  LOOP- 
Schleifen  finden  Sie  in  Bild  3.  Über 
die  Diagramme  der  anderen  Struk¬ 
turen  und  den  Umgang  mit  Strukto- 
grammen  können  Sie  sich  an  ande¬ 
rer  Stelle  in  dieser  Zeitschrift  oder  m 
den  unten  aufgeführten  Büchern  in¬ 
formieren.  Kommen  wir  nun  zu  den 
Modulen.  Dabei  handelt  es  sich  um 
besondere  Blöcke,  die  ein  bestimm¬ 
tes  Teilproblem  —  beispielsweise 
das  Zeichnen  einer  Linie  in  einem 
Grafikprogramm  —  unter  möglichst 
weitgehender  Unabhängigkeit  vom 
restlichen  Programmtext  bearbei¬ 
ten.  Stellen  Sie  sich  vor,  Sie  finden 
in  einer  Zeitschrift  ein  Pascal- 
Programm  zur  Einstellung  von  Gra¬ 
fiken.  Dieses  Programm  benutzt 
zum  Beispiel  die  Anweisung  PLOT 
(X,Y)  zum  Zeichnen  eines  Punktes 
mit  den  Koordinaten  X  und  Y.  Ihr 
Freund  möge  eine  Sprache  Super- 
Pascal  besitzen,  die  diese  Anwei¬ 
sung  standardmäßig  enthält.  Er 
tippt  das  Programm  ein,  es  läuft  — 
fertig.  Sie  selbst  besitzen  aber  nur 
ein  mageres  Mini-Pascal,  das  die¬ 
sen  Befehl  nicht  kennt.  Nun,  mit  Pas¬ 
cal  ist  das  kein  Problem:  Sie  schrei¬ 
ben  sich  eine  Procedur  PLOT  (X,Y) 
fügen  diese  in  das  Programm  ein  — 
fertig.  An  dem  Programmtext  selbst 
brauchen  Sie  nicht  die  germgste 
Änderung  vorzunehmen.  Ja,  brau¬ 
chen  ihn  nicht  einmal  näher  anzuse¬ 
hen.  Woran  liegt  das? 

Vom  Problem  her  —  dem  Erstel¬ 
len  einer  Grafik  —  ist  das  Zeichnen 
eines  Punktes  das  Zeichnen  eines 
Punktes.  Das  einzige,  was  interes¬ 
siert,  ist,  daß  dazu  zwei  Koordinaten 
erforderlich  sind.  Dieser  Tatsache 
trägt  die  Sprache  Pascal  dadurch 
Rechnung,  daß  sie  keinen  Unter¬ 
schied  macht  zwischen  dem  Aufruf 
von  vorgegebenen  Standardanwei¬ 
sungen  und  selbst  definierten  Pro¬ 
zeduren. 

Wenn  Sie  in  einem  Basic- 
Programm  irgendwo  eine  Zeile 
PRINT  "TEXT”  stehen  haben,  er¬ 
warten  Sie  selbstverständlich,  daß 


1710  COSUB1600*- RETURN 
1740  QOSUB1S40: RETURN 
1910  GOSUB1600: RETURN 
1860  GOSUB1640: RETURN 

20 1 0  I FSP>SMTHENER»3 : GOTO50000 

2011  I F IP> I  MTHENER-4  '•  GOTO50000 
2020  SX < SP  )  =  I P : I P» I P+ 1 : SP= SP+ 1 
2025  IN- l: RETURN 

2040  IFSP<1THENER»1:GGTO50000 

2041  I F I P> I MTHENER-4 : GOTQ50000 
2044  m  SV.  <  SP- 1 »  »FNflD <  20+2  > + i -D I 
2050  SX(SP-1)»IP ■ IP=IP+1 

2052  IN-2= RETURN 

2100  I F3P< 1 THENER* 1 : GOTO30080 

2103  SP=SP-1 : IX<SHC8P>>*FNfllKZfl+2>-Dl 

2107  IN-3: RETURN 

2160  IFSP>SMTHENER-3  =  GOTO30000 

2165  SZ<SP>-r-SP«SP+l 

2170  GOSUB2010 

2180  IN- ls RETURN 

2210  GO5UB2040 

2230  GOSUB2010 

2240  IN-2: RETURN 

2260  H=FNfiIKZfi+2)-BI 

2270  : 

2275  I FSP<1 THENER» 11GOTO50000 
2230  SP«SP-l:I-SX<SP> 

2250  IFK0THEN2311 
2300  I>:<I>=H 

2310  GGTO2270 

2311  : 

2320  IN-3: RETURN 
2400  : 

2410  IFMP>MMTHENER*S:eOTri50000 

2413  I  FCfiNDCOLflTHENGÜbu3250 :  G0TO2415 

2420  IFCTHENGO3UB750 

2423  IFCTHENGOSUB250 

2423  IFC<480RC>57THENERS9 : GOTÖ8050 

2430  MRJKMP)-T$:H-C 

2440  GOSIJB750 

2450  mV. < MP > «VflL C CHR* (H)+T#)-DI 

2460  MP-MP+1 

2470  IFC-0THEN2481 

2430  GOTO2400 

2431  : 

2435  IN-0: RETURN 
2530  OOSUB750 

2560  FORI=0TOBM :  IFT#OBE# <  DTHENNEXT 
2565  I F I  >BMTHENER»0  '■  GOTO8050 
2563  1=1+1 

2570  ON I GOSUB2590 , 2635 , 2630  ..3010,3090,3190, 3268 ,3310, 3368 , 

3400, 3458, 3550,3530, 3600 
2575  R.ETIJRN 

2390  IFC=0THENZ*=2*+":" 

2595  SX  <  SP )  =LP  '•  SP-SP+ 1 :  LP=LP^  1 
2597  RETURN 
2630  SP-SP-1 

2640  Z*=Z# +GT# +M  I  D*  <  STR#  <  LOV.  <  SX<  SP  > ,  0 >  +D 1  >  .•  2 >  +NU$ 

2642  GOSUB550 

2647  L=PEEK<Zfl+2)+l  :H*PEEK<Zfi+3>  '•  IFL>255THENL-0:H*H+1 

2643  Zf-CHRi < L  > +CHR#  < H)+" ' " 

2658  RETURN 

2685  B$="" :  IFRIGHT*<Z*,  l>OCHR*<  167>THENB*=GT$ 

2693  Z# =Z$+B#+M  I D*  < STR# <L05i  <  SV.  <SP- 1  ) ,  1)  +D I + 1 ) ,  2 ) 

2693  RETURN 

30 18  Z#=Z# + I  C#+N0#+ "  < "  +CHR#  (  C  > 

3020  GOSUB230 :  IFCOTHANDCTHENZ#-Z*+CHR$<C> :  GOTO3020 
3030  Z#=Z#+ " ) "  +CHR.# <TH  >  +M I B#  < STR#  <  I V.  <  I P  > +D I  > ,  2  >  Listing. 

3036  IP-IP+i :  0*0 ‘  RETURN  Das  Objektprogramm  Strubs 

3090  Z#s=Z#+GT#+MII)#(STR#<  IX<Tp)+Dl ) ,2>+NU#  (Fortsetzung) 
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dadurch  nicht  50  Zeilen  weiter  der 
Wert  der  Variablen  A  verändert 
wird.  Entsprechend  sorgt  nun  Pas¬ 
cal  dafür,  daß  eine  selbst  definierte 
Prozedur  genausowenig  Auswir¬ 
kungen  auf  andere  Programmteile 
hat  wie  der  Aufruf  einer  Standard- 
Anweisung.  Die  interne  Arbeitswei¬ 
se  einer  solchen  Prozedur  wird  vor 
der  Programmumgebung  genauso 
versteckt,  wie  dies  bei  der  internen 
Arbeitsweise  von  im  Sprachumfang 
enthaltenen  Anweisungen  der  Fall 
ist.  Entsprechend  nennt  man  dieses 
Konzept  auch  »Information  Hiding«, 
Programmiersprachen  wie  ADA, 
MODULA  oder  SIMULA  bieten  in 
dieser  Hinsicht  noch  sehr  viel  wei¬ 
tergehende  Möglichkeiten  als  Pas¬ 
cal. 

Schnittstellen: 

Der  Datenaustausch  mit  der  Um¬ 
gebung  eines  Moduls  erfolgt  über 
genau  definierte  Schnittstellen,  Bei 
einer  solchen  Schnittstelle  handelt 
es  sich  um  eine  Menge  derjenigen 
Annahmen,  die  die  Programmum¬ 
gebung  über  ein  Modul  macht  — 
das  heißt  welche  Daten  es  als  Ein¬ 
gabe  erwartet,  welche  Daten  es 
daraufhin  wieder  ausgibt  und  wel¬ 
che  anderen  Module  es  seinerseits 
benötigt. 

Modulbibliothek: 

Die  relative  Eigenständigkeit  sol¬ 
cher  Module  sorgt  nun  nicht  nur  für 
emfache  Änderbarkeit  und  Erwei- 
terbarkeit,  sondern  ermöglicht 
auch  das  Anlegen  einer  sogenann¬ 
ten  Modulbibliothek.  Eine  solche  Bi¬ 
bliothek  enthält  eine  Reihe  von  Pro¬ 
grammbausteinen,  die  je  nach  Be¬ 
darf  in  zu  entwickelnde  Programme 
eingefügt  werden  können.  Dabei 
kann  es  sich  um  Sortierroutinen, 
Grafik-Routinen,  mathematische 
und  statistische  Routinen  und  so  wei¬ 
ter  handeln.  Aber  auch  die  Entwick¬ 
lung  von  Spielen  läßt  sich  auf  diese 
Weise  vereinfachen:  Man  kann  Bi¬ 
bliotheken  fertiger  Sprites,  von  ei¬ 
genen  Zeichensätzen  oder  von  di¬ 
versen  Soundroutinen  anlegen. 

Das  wichtigste  Hilfsmittel  zur  Un¬ 
terstützung  modularer  Programm¬ 
entwicklung  stellen  sicherlich  die 
lokalen  Variablen  dar.  Leider  gibt 
es  solche  nicht  in  Basic  und  auch 
Strubs  kann  keine  lokalen  Varia¬ 
blen  bieten.  So  ist  es  auch  weiterhin 
erforderlich,  beim  Einsetzen  oder 
Ändern  eines  Moduls  daraufzu  ach¬ 
ten,  ob  und  an  welchen  Stellen  Va¬ 
riablen  des  Moduls  in  anderen  Pro¬ 
grammteilen  benutzt  werden,  und 
gegebenenfalls  Umbenennungen 
vorzunehmen.  Der  zweite  große 
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GOSUB550 

L=PEEK < ZA+2)+l :  H=PEEK < 2R+3 >  ‘1  FL>255THENL*0  '•  H=H+ 1 
Z$=CHR$(L)+CHRS<H5+" : " 

IP«=IP+1  '•RETURN 
L-PEEK<ZA+2) :H*PEEK(Zfl+3) 

Z$*CHR$<LD+CHR$<H)+" : " 

RETURN 

GOSUB3010 : RETURN 
GOSUB3090 

Z$=LEFT$<Z*;LEN<Z$>-1> 

OOSUB3010 

RETURN 

GQSUB3190 

RETURN 

Z$s""  :i>0 :  RETURN 

GOSUB2590 

Z$*Zf+IC*+N0S+"<" 

IFCOBEANBCTHENZi*Zi+CHR$<C) :  GOSUB230  '•  GOTO3470 
Z**Z*+">"+CHR$CTH> 

z**z*+Mm*<$TR*ao5i<S/:<sp-i  > , 1 >+di+i > , 2> 

C=0  RETURN 
OOSUB2630: RETURN 
QOSUB2390 : RETURN 
Z$=Z$+IC$+N0*+"<" 

IFCTHENZ$»Z$+CHR*<C) : GOSUB250 : 30103610 
SP-SP-1 : IN=3 

Z$=Z*+" )  "+CHR$<TH>+f1ID$  <STR*<L02<SH<SP> ,  0>+DI > ..  2) 
RETURN 

Z*-CHR*<PEEK<Zfl+2>  >+CHR$<PEEK<Zfl+3» 

NC=ZR+4 : GO3UB250 
IFC-DPTHENGOSUB250 
IFNOT  <C=Lfl)THEN41 10 
GOSUB750 : IFC-DPTHENGOSUB250 
IFC=0THENZ$=Zi+" : " 

NC-NC-l : I FC=0THENZ$=Z$+NU$ 

: IFC=0THEN4397 
GGSUB250 

I FNOT  <  C=BE ) THEN4359 

GOSUB2550 

G0T04378 

IFl>LflTHENGOSUB1050 

Z$=Z$+CHR$(C) 

GOTO4130 

RETURN 

PRINTM  *****  UEBERSETZEN  ****MB" 

I FNOT  <  FNRD ( ER ) <EA+5QRFNAD < ER) >ER+83>  THEN5054 
PR  INT"  KE  IN  PROGRAMM  VORHANDEN "  '■  GOSUB49550 :  RETURN 

PR INT "BITTE  DISK  EINLEGEN  M  " 

PR INT "NAME  FUER  OBJEKT-PROGRAMM" 

POKE 1 98  .■  1 :  P0KE63 1  .■  34 
INPUTF* 

OPEN  1/8;  1,F$+" -P ; U " : OPEN  15,8;  15 
I NPUT#1 5 ; E , E* : I FE=0THEN5 1 0 1 
PRINT'DISK  ERR:";E;Ef 
INPUT "HEUER  VERSUCH" ;Z$ 

CLOSEI : CL0SE15 
1  FZf  <> "  J "  THENRETIJRN 
GOTO5060 


RR=ER 

PRINT#1; CHR$<ftAAND256> ;  CHR*  < RR/256) J 
PR I NT "1. LAUF" 

TR=7 

G0SUB5555 

I FSP>0THENPR I NTSP ; = ER=8 • OOTO50000 


Listing. 
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Nachteil  von  Basic  —  die  leidigen 
Zeilennummern  —  braucht  uns  da¬ 
gegen  nur  noch  wenig  zu  beschäfti¬ 
gen.  Strubs  bietet  alle  Möglichkei¬ 
ten,  die  erforderlich  sind,  um  ein 
Programm  vollkommen  unabhängig 
von  Zeilennummern  zu  schreiben 
Als  erstes  sind  da  natürlich  die  oben 
besprochenen  Kontrollstrukturen 
zu  nennen.  Darüber  hinaus  können 
bei  allen  Sprüngen  Zeilennummern 
durch  Labels  (Marken)  ersetzt  wer¬ 
den,  Solche  Labels  werden  durch 
das  Zeichen  »£«  gekennzeichnet  und 
abgeschlossen  durch  ein  Leerzei¬ 
chen,  Doppelpunkt,  Komma  oder 
Zeilenende.  Die  dürfen  zwar  reser¬ 
vierte  Basic-Worte  enthalten,  dann 
können  sich  aber  wegen  der  in  der 
letzten  Folge  erwähnten  Tokens  bei 
der  Ausgabe  der  Markentabelle 
seltsame  Effekte  ergeben.  Die  La¬ 
bels  werden  definiert,  indem  sie  an 
den  Anfang  einer  Zeile  gesetzt  wer¬ 
den  und  können  beliebig  lang  sein: 
10  AUSGEBEN: 

20  :  PRINT  "X:";X 
30  RETURN 

200  X=  l.-GOSUB  £X-AUSGEBEN 
210  X  =  2:GOSUB  £X-AUSGEBEN 

Schließlich  bietet  Strubs  noch  die 
Möglichkeit  relativer  Sprünge.  Die¬ 
se  dienen  vor  allem  dazu,  kurze 
Schleifen  innerhalb  einer  einzigen 
Zeile  zu  konstruieren,  ohne  dafür 
extra  ein  Label  zu  definieren: 

90  NC  =  NC  +  1 :  C  =  PEEK(NC) : IF 
C>0  THEN  Z$  +  CHR$(C):  GOTO 
£THIS 

Der  Befehl  GOTO  £THIS  bewirkt 
einen  Sprung  an  den  Anfang  derje¬ 
nigen  Zeile,  in  der  dieser  Befehl 
steht. 

Da  bei  der  Arbeit  mit  Strubs 
Quellprogramme  in  der  Regel  weit 
umfangreicher  als  die  Objektpro¬ 
gramme  sind,  bietet  Strubs  die 
EXTERN-DEKLARATION,  die  es 
ermöglicht,  Module  und  Programm¬ 
teile  getrennt  zu  übersetzen  und  erst 
auf  der  Objektprogrammebene  zu¬ 
sammenzufügen.  Hierbei  müssen 
die  einzelnen  Programmteüe  aller¬ 
dings  verschiedene  Zeilennum¬ 
mern  belegen.  In  der  Extern- 
Deklaration  wird  ein  Name  verein¬ 
bart,  unter  dem  ein  Programm  ein 
externes  Modul  ansprechen  kann. 
Diesen  Namen  wird  die  Einsprung¬ 
adresse  (bei  Maschinenprogram¬ 
men)  beziehungsweise  die  Zeilen¬ 
nummer  bei  Basic-Routinen  zuge¬ 
wiesen: 

20  REM  VEREINBARUNG: 

30  !  EXT:  £MAPRO:740,£PLOT: 
50000 

Fortsetzung  auf  Seite  126 


5145  PR INT "2. LAUF" 

5150  GOSUB6S50 

5160  PR  I  NT#  1 ,  CHR5  <  0 ) ;  CHR$  <  0  ) 

5180  CL0SE1 : PRINT"?»#"; EP; "  ERR0RS  #*" :GOSUB49550 
5130  RETURN 
5555  ZR=ER 

5570  I FN0T  ( ZRO0 )  THEN593 1 

5580  NC=ZR+4  '•  C=PEEK<NC>  :NONC+i 

5585  I FODPTHENGOSUB250 

5530  IFD=LRTHENGOSUB6050:  IFC=BPTHENGOSUB250 

5620  I FC=BETHEN00SUB 1 550 

5920  ZR=FNfiD<Zfl) 

5930  GOTO5570 

5931  : 

5935  RETURN 

6050  I FMP>MMTHENER«6 : GOTO30000 
6070  GO3UB750 

6100  MR$< MP >  =T$ :  m'Ä < MP > =FHRB.< ZR+2 )-DI  '•  MP=MP+ 1 

6120  RETURN 

6550  ZR=Efl:Zl=FNRB<ZR> 

6560  LP-0:SP*0!lP*0 
6580  J 

6585  I FNOT  < PEEK <  Zfl+4 ) OKO >  THEN6650 
6590  GOSUB4060 
6600  GOSUB350 
6650  : 

6655  Zfl=Zl :Zl=FNflDCZl) 

6660  I FNOT  <  Z 1 =0 ) THEN6580 
6680  RETURN 

8050  PR  INT  "ERROR  I N "  J  FNRB  <  ZR+2 )  .■  ER.i  <  ER  > 

8060  I  FEP<EMTHENERJi ( EP , 0> =FNRB  < ZR+2 >  ~B  I : ERZ <  EP ■ 1 > =ER : EP=EP+ 1 
8080  Z$-LEFTI  <  Zt ,  2  >  + ! "  *****  ERR : "  +ER*  ( ER )  + 11  ******** " 

8090  C4=NUi : C“0 
8999  RETURN 
8860  PRINTMn®WWWH 

8870  PR I NTTRB ( 9 ) ; " ********************* " 

8880  PR I NTTRB (9) ; "**  ZURUECK  MIT:  **" 

8882  PRINTTRBC9); "**  '  !  '  [RETURN]  **" 

8940  PRINTTRBO)  i  "*********************" 

8950  P0KE44 , ER/256 : P0KEER- 1 ,  0 : CLR : END 
8990  END 

40050  PRINT" T .:  TRB<  10) ;  "*****************" 

40052  PRIHTTRB(10); "*  --  STRUBS  —  *" 

40053  PRINTTflBC 10); "*  PRECOMPILER  *" 

40055  PRINTTfiB<10>; "*  BITTE  WflEHLEN  *" 

40858  PRINTTRBGG) ;  "*****************" 

40860  PRINT"  XKWSESD  IT" 

40070  PR  I  NT "  »3UKBERSETZEN " 

40080  PRINT"WailflRKEN-TflBELLE  RUSGEBEN" 

400SÖ  PR I NT " MSFSEHLER-T RBELLE  RUSGEBEN" 

40100  PR INT "Mas SCHLUSS" 

40160  GETZ$: 1FZ$=""THEN40160 

40170  IFZ$="E"THEN8860 

40188  I FZ$= " U " THENGO8UB5050 : GOTO40030 

40190  IFZ$="S"THENEND 

40195  I FZ t= "  M THENGOSUB48050 :  GOTO40850 

40208  I FZ$= " F " THENGOSUB49050 : GOTO40050 

40495  GOTO40050 

45068  MM-99 :  DIMMR$<MM) ,  MR5i<MM>  :  MP=0 
45135  LM=140:BIMLO2<LM,  1ULP=0 
45145  IM=278 :  DIMIHC IM) :  IP=8 
45190  SM=60 :  DIMSJ'XSM) :  SP=3 
45220  BI =32766 

45258  DP=RSC< "  '• " ) :  K0=RSC( "  LR=RSC<"£" ) :  NU$=CHR$<0) :  BL=RSC< "  " > 

45253  BE=RSC("  ! 11 ) :  TE=34 :  0T$=CHR$  037) 

45254  IC$=CHR$C 133) :  TH=167 : N0$=CHR$< 168) :KM=44 
45265  BM= 13 : D1MBE$(BM) 

45278  FORI=0TOBM : RERDBE$( I ) : NEXT 

45271  BE$C3)=IC$  Listing.  Das  Objektprogramm  Strubs 

45272  BRTRLOÜP,EXIT,ELOOP,  IF, ELSE, FI  (Fortsetzung) 
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45273  BAT ACASEOF ,  DF ..  ECRSE ,  EXT 

45274  DATAWH  I  LE ,  El-JH I  LE ,  REPEflT ,  UNT I L 
45410  DEFFNRD(X)»PEEK(X)+256*PEEK(X+1) 

45480  EM=40:DIMER/XEM, 1) :EP=0:BIMER*<40> 

45500  FORI =0109 : READER* < I > : HEXT 

45510  BRTR" FALSCHER  BEFEHL",  "BLOCKSCHACHTELUNG:  ANFANG  FEHLT" 

45511  DAT A " UNDEF I N I ERTE  MARKE" , "STACK  VOLL" 

45512  DATA "ZU  VIELE  IF/ELSE/'CRSE/'OF" , "ZU  VIELE  LOOP/WH I  LE/'REPERT " 

45513  B ATA" ZU  VIELE  MARKEN" ,, "BLOCK  NICHT  GESCHLOSSEN" 

45514  DATA "EXTERN  DECLARATION" 

45600  1=0: RE ABU 

45610  POKE704+I ,  U :  1=1  +  1 :  RERDU  '•  IFW<256THEN45610 
45620  BRTR32 ,115,0,8,201, 33 ,  240 , 4 , 40 , 76 , 231,1 67 
45630  BRTR 1 69 , 8 , 1 33 ,44,1 69 , 1 38 ,76,231,1 67 , 999 

45659  FÜRI=0TO10 : RERBl-1 : POKE750+I, U 

45660  NEXT 
45670  SVS750 

45680  DATA 1 69 , 1 92 , 1 4 1 , 8 , 3 , 1 69 , 2 , 1 4 1 , 9 , 3 , 96 

45999  RETURN 

48050  I  FMP=0THENRETliRN 

48055  H=0 

48057  PR  INT  "ZW  **  MARKENTABELLE  AUSGEBEN  ##" 

48060  INPUT "»W  AUF  BRÜCKER  CJ/'NVUBS 
48070  I FNOT < B*=" J " )THEN4809 1 
48075  PRINT"  BRÜCKER  AN?" : OOSUB49550 
48080  OPEN 1,4 

48090  OOTO48104 

48091  : 

48100  OPEN 1,3 
48102  H=-l 
48104  : 

48120  FORI=0TOMP-1 

48140  PR I NT# 1 , MAX  < I ) +B I , MR*  < I ) 

48150  IFI-1NT<IX10)*10=0THENIFIRHBHTHENGO3UB49550 
48180  NEXT 

48185  CLOSEI  '•GOSUB49550 
48190  RETURN 
49050  I FEP=0THENRETURN 
49055  H=0 

49057  PRINT" CM  M  FEHLERTABELLE  AUSGEBEN  **" 

49060  INPUT  "MSI  AUF  BRÜCKER  <  .VN)"  ;B* 

49070  I FNOT < Bi» " J " ) THEN4909 1 

49075  PRINT"W  BRÜCKER  AN7MS" : GOSUB49550 

4S080  OPEN 1,4 

49090  OOTO49104 

49091  : 

49100  OPEN 1,3 
49102  H=-l 
49104  : 

49110  PR I NT# 1, EP;"  ERRORS" 

49120  FORI=0TOEP*-1 

49 1 40  PR I NT# 1 , ERX ( I , 0) +B I J ERi < ERZ <1,1)5 

49150  I F 1 - 1 NT  < I / 1 0 > * 1 0=0THEN 1 F I ANBHTHENGCSUB49530 

49180  NEXT 

49185  CLOSEI 

49191  GOSUB49550 

49190  RETURN 

49550  PRINT" ->l«l" 

49560  GETBi: IFB$=""THEN49560 
4957Ö  RETURN 

50800  PRINT" JS#  FEHLER  BEHEBEN,  BANN  NEU  VERSUCHEN  *" 

50008  PRINT: PRINTER* < ER);"  IN  ";FNAD(2A+2) 

50010  PR I NT# 1 , CHR$ <0 ) ; CHR* < 8 ) ; 

50020  CL03E1 
50030  GOSUB49550 
59040  GOSUB49050 
50050  RUN 

Listing.  Das  Objektprogramm  Strubs 
READV.  (Schluß) 


Fortsetzung  von  Seite  121 


90  REM  AUFRUF: 

99  SYS  £MAPRO:  X=  13:Y  =  90:GO- 
SUB  £PLOT 

Kommen  wir  abschließend  zur 
Dokumentation:  Vom  Hobby- 

Programmierer  kann  kein  Mensch 
erwarten,  daß  er  Berge  von  Doku¬ 
mentationsmaterial  anlegt,  die  den 
Umfang  des  Programmtextes  um 
ein  Vielfaches  übersteigen.  Des¬ 
halb  ist  es  gerade  hier  wichtig,  Pro¬ 
gramme  weitgehend  selbstdoku¬ 
mentierend  zu  schreiben.  Im  Ge¬ 
gensatz  zu  höheren  Programmier¬ 
sprachen  mit  ihren  zahlreichen  De¬ 
klarationspflichten  ist  der  Basic- 
Programmierer  nahezu  ausschließ¬ 
lich  auf  Kommentare  angewiesen. 
Da  Strubs  Kommentare  bei  der 
Übersetzung  elemmiert,  stehlen 
diese  weder  Speicherplatz  noch 
Laufzeit.  Der  Programmierer  kann 
also  ohne  Bedenken  einen  exzessi¬ 
ven  Gebrauch  von  Kommentaren 
machen. 

Kommentare  werden  gekenn¬ 
zeichnet  durch  das  Zeichen  »«. 
Steht  dieses  Zeichen  direkt  am  Zei¬ 
lenanfang,  so  wird  die  ganze  Zeile 
gelöscht.  Sonst  wird  der  Programm¬ 
text  bis  zum  zweiten » ' « oder  bis  zum 
Zeilenende  überlesen.  Außer  in¬ 
nerhalb  von  Befehls-  und  Marken¬ 
namen  können  Kommentare  an  je¬ 
der  beliebigen  Programmstelle  ein¬ 
gefügt  werden.  Kommentare,  die  in 
das  Objektprogramm  übernommen 
werden  sollen,  können  wie  bisher 
mit  REM  in  den  Programmtext  ein- 
gefücjt  werden.  Beispiel: 

10  DIESE  ZEILE  WIRD  VOLL¬ 
STÄNDIG  GELÖSCHT 
20  A'US'G'ABE'$  =  "ENTSPRICHT 
AG$"  'KOMMENTAR 

Die  Lesbarkeit  von  strukturierten 
Programmen  wird  verbessert 
durch  das  Einrücken  von  Zeilen  ent¬ 
sprechend  der  Blockstruktur.  Hier¬ 
zu  dient  der  Tabulator  (Bild  2):  Ein 
Doppelpunkt  am  Zellenanfang  ge¬ 
folgt  von  Leerzeichen.  Für  die  Un¬ 
geduldigen  ist  das  Opjektpro- 
gramm  von  Strubs  bereits  abge¬ 
druckt  (Listing).  In  der  nächsten 
Ausgabe  werden  wir  auf  die  prakti¬ 
sche  Programmentwicklung  mit  Hil¬ 
fe  von  Strubs  eingehen. 

(Matthias  Törk) 
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Wie  lästig  ist  es  aber  zum 
Schluß,  nachdem  auch  die 
letzten  von  ihren  Irrfahrten 
eingetrudelt  sind,  die  Auswertung 
abzuwarten.  Das  merkte  auch  Ingo 
Molitor  als  er  an  einer  Orientie¬ 
rungsfahrt  im  Kölner  Raum  teil¬ 
nahm.  Nach  240  km  Fahrtstrecke 
und  enthusiastischem  Eifer,  alle  un¬ 
terwegs  gestellten  Aufgaben  her¬ 
auszubekommen,  wollte  er  am  lieb¬ 
sten  auf  der  Stelle  wissen,  wie  er  im 
Vergleich  zu  den  anderen  Teilneh¬ 
mern  abgeschnitten  hatte.  Viel¬ 
leicht  war  er  sogar  Erster  gewor¬ 
den? 

Gezwungenermaßen  mußte  er 
seine  Ungeduld  zügeln  —  zwei  Stun¬ 
den  lang.  Und  das  Ergebnis  verbes¬ 
serte  auch  nicht  gerade  seine  mitt¬ 
lerweile  auf  den  Nullpunkt  gesun¬ 
kene  Laune:  Platz  12.  Doch  kurz  vor 
der  Siegerehrung  wußte  man  es 
besser.  Nachdem  alle  bis  dahin  ver¬ 
kündeten  Ergebnisse  von  Berech- 
nungs-  und  Auswertungsfehlern  be¬ 
reinigt  waren,  besetzte  er  Platz  8  — 
nur  richtig  freuen  konnte  sich  Ingo 


Molitor  jetzt  nicht  mehr  über  seinen 
unfreiwilligen  Aufstieg.  Ihn  beschäf¬ 
tigte  schon  längst  ein  ganz  anderer 
Gedanke:  So  etwas  durfte  nie  wie¬ 
der  Vorkommen.  Wozu  hatte  er 
denn  einen  Computer  —  der  müßte 
doch  geeignet  sein,  die  bei  einer 
Orientierungsfahrt  übliche  Sponta¬ 
nität  und  Freude  auch  bis  zuletzt  auf¬ 
rechtzuerhalten. 


Bereits  am  nächsten  Tag  begab 
sich  der  »Rallyeverbesserer«  ans 
Werk,  er  schrieb  das  notwendige 
Programm  auf  seinem  VC  20.  We¬ 
nige  Tage  später  »stand«  es.  Nur 
jetzt  ließ  die  nächste  Orientierungs¬ 
fahrt  auf  sich  warten.  Der  Termin 
war  leider  nicht  per  Computer  zu 
steuern. 
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So  machen’s  andere 


Sieger  bei  der 
Ein-Mann-Rallye 


Sommer  und  Herbst  gingen  ins 
Land  —  und  aufregender  als  das 
bevorstehende  Weihnachtsfest 
war  der  18.  Dezember  für  Ingo  Mo¬ 
litor,  denn  heute  sollte  eine  Rallye 
stattfinden.  Namen  der  Fahrer,  Bei¬ 
fahrer,  Autotypen,  Startnummern 
und  so  weiter  hatte  er  bereits  ge¬ 
speichert.  Mit  einem  Ausdruck  der 
Startliste  in  der  Hand  stand  er  vol¬ 
ler  Lampenfieber  auf  dem  Park¬ 
platz,  wo  die  »Jungfernfahrt«  seines 
Programms  beginnen  sollte.  Das 
Lampenfieber  war  nicht  ganz  unbe¬ 
gründet,  denn  in  einem  »Anfall«  to¬ 
taler  Sicherheit  hatte  man  sich 
vollkommen  auf  den  Computer 
verlassen  —  es  gab  keinerlei  hand¬ 
schriftliche  Aufzeichnungen  oder 
Notizen. 

Doch  die  Bedenken  gingen  zu¬ 
nächst  unter,  denn  das  Wesentli¬ 
che  war  gegeben:  alle  Teilnehmer 
hatten  einen  Riesenspaß,  dafür 
sorgten  schon  die  gestellten 
Aufgaben.  So  mußte 
man  beispielsweise  er¬ 
kunden  »Welche  Haus¬ 
nummer  hat  der  Kölner 
Dom?  Wieviele  Stufen 
führen  zum  Turm?«  Dar¬ 
über  hinaus  sollte  sich 
jeder  eine  Quittung  dar¬ 
über  besorgen,  daß  er  in 
einem  fremden  Haus  ein 
Fenster  geputzt  hatte.  Und 
dann  ging’s  unter  der  Erde 
weiter,  es  galt  herauszufin¬ 
den,  wie  die  Patenstadt  eines 
bestimmten  Wagens  der  Li 
nie  16  heißt. 


Da  Ingo  Molitor  zu  den  Organisa¬ 
toren  gehörte,  durfte  er  leider  nicht 
mitmachen  —  aber  eine  Rallye  sollte 
er  auch  noch  erleben.  Mit  einigen 
Freunden  fuhr  er  zum  Zielpunkt,  um 
bei  einer  gemütlichen  Tasse  Kaffee 
den  nächsten  Coup  vorzubereiten: 
Jetzt  stand  Eierkochen  auf  dem  Plan. 
Gegen  15  Uhr  fuhr  Ingo  Molitor  vom 
Zielpunkt  zu  einem  der  unterwegs 
festgelegten  Kontrollpunkte  und 
drückte  jedem  Team  ein  unver¬ 
wechselbar  markiertes  rohes  Ei  »in 
die  Hand«.  Es  sollte  bis  zum  Ziel  auf 
irgendeine  Weise  in  ein  gekochtes 
verwandelt  werden  —  Kreativität 
war  Trumpf. 

Nun  blieb  für  den  Organisator 
nicht  mehr  viel  zu  tun.  Am  Zielpunkt . 
mußte  der  VC  20  mit  Programm  und 
Drucker  für  das  Eintreffen  der  Teil¬ 


vfio 


ri— 


nehmer  vorbereitet  werden.  Vor  18 
Uhr  konnten  auch  die  Schnellsten 
nicht  da  sein;  Ingo  Molitor  hatte 
noch  viel  Zeit.  Doch  das  änderte 
sich  schlagartig:  Als  er  nämlich  das 
Hauptprogramm  starten  wollte,  er¬ 
schien  auf  dem  Bildschirm  nur  eme 
sehr  klare  aber  in  dem  Moment  au¬ 
ßerordentlich  freche  Meldung  »LO¬ 
AD  ERROR«.  Trotz  zwölf  Versuchen 
und  gutem  Zureden,  der  Computer 
blieb  bei  seiner  Ansicht.  Keine  Da¬ 
ten  —  keine  Auswertung ...,  das  wä¬ 
re  die  logische  Folge  gewesen. 

Dies  war  der  Startschuß  für  Ingo 
Molitors  Privat-Rallye.  »Streng« 


nach  den  Vorschriften  der  Straßen¬ 
verkehrsordnung  fuhr  er  nach  Hau¬ 
se,  um  eine  Sicherungskopie  des 
Programms  zu  holen.  Er  blieb  auch 
Gewinnen  dieser  nicht  angemelde¬ 
ten  Ein-Mann-Rallye. 

Die  Auswertung  klappte  dann  bil¬ 
derbuchartig:  Keine  mühselige 
Rechnerei  für  fünf  Leute,  die  damit 
systematisch  20  andere  entsetzlich 
langweilen.  Eher  ein  Spiel  für  einen, 
an  dem  sich  alle  beteiligten,  denn 
die  nach  dem  Eintreffen  eines  jeden 
Teams  ausgedruckten  Zwischenli¬ 
sten  heizten  die  Stimmung  ganz 
schön  an. 


Die  Lösung  der  Titelfrage 
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Übrigens:  Die  rohen  Eier  waren 
fast  alle  gekocht.  Ein  Teilnehmer 
hatte  es  jedoch  —  mangels  anderer 
Gelegenheit  vorgezogen,  zwischen¬ 
durch  ab  und  zu  anzuhalten,  um  es 
auf  den  heißen  Motor  zu  legen. 
Auch  so  wird  ein  Ei  hart  ohne  daß  es 
gekocht  ist!  Ein  anderer  Teilnehmer 
hat  einen  Geschäftsmann  recht  be¬ 
glückt,  indem  er  dessen  Schaufen¬ 
sterscheibe  gegen  Quittung  putzte. 

(Ingo  Molitor/kg) 


Programmbeschreibung 


Das  Programm  für  die  Auswer¬ 
tung  einer  Orientierungsfahrt  läuft 
auf  einem  VC  20  mit  32  KByte  RAM, 
Datasette  und  einem  Epson-RX80- 
Drucker  mit  VC  20  Interface. 

Es  besteht  aus  zwei  Teilen  und  un¬ 
terstützt  die  Vorbereitung  und  Aus¬ 
wertung  einer  Autorallye  bezie¬ 
hungsweise  Orientierungsfahrt  mit 
bis  zu  100  Teilnehmern.  Der  erste 
Programmteil  steuert  die  Datener¬ 
fassung  und  Speicherung,  der  zwei¬ 
te  Teil  beinhaltet  die  Auswertung.  Je 
nach  Speicherausbau  können  auch 
die  Daten  von  mehr  als  100  Teams 
nach  Änderung  der  DIM-Zeilen  ver¬ 
arbeitet  werden. 


1.  Programmteil 


Der  erste  Teil  dient  zur  Erfassung 
der  Teams  und  der  Fahrzeugtypen. 
Nach  Eingabe  des  Tagesdatums 
meldet  sich  der  VC  20  mit  einem 
Menü  und  die  Eingabe  kann  begin¬ 
nen. 

1.  Eingabe  Zeilen  100  bis  300 
Anfangs  wird  nach  dem  Team  ge¬ 
fragt,  also  nach  dem  Fahrer  und  Bei¬ 
fahrer.  Bei  längeren  Namen  sollten 
die  Vornamen  abgekürzt  werden. 
Nach  der  Abfrage  des  Fahrzeug¬ 
typs  muß  zuletzt  zur  Überwachung 
der  Start geld-Zahlung  »J«  für  »be¬ 
zahlt«  und  »N«  für  »nicht  bezahlt«  ein¬ 
gegeben  werden.  Gibt  man  zu  allen 
Punkten  nur  »Return«  ein,  so  verläßt 
das  Programm  in  Zeile  260  den  Ein¬ 
gabeteil  und  kehrt  zum  Menü  zu¬ 
rück. 

2.  Druckliste  Zeilen  350  bis  880 

In  Zeile  360  ist  ein  Wartepunkt  ge¬ 
setzt,  der  das  Programm  solange 
stoppt,  bis  der  Drucker  angeschal¬ 
tet  wurde,  um  eine  eventuelle  Feh¬ 
lermeldung  zu  vermeiden.  Zeile  380 
Open  4,4,0  simuliert  auf  dem  Epson- 
RX  80  den  Commodore  VC- 1525. 
Die  speziellen  Möglichkeiten  des 

130  (äatä? 


-THB«fX-1=RETURH  =  REM  ElfflE  **  61WWBE 


5  P0KE36879,»:P««W.i* 

10  I  CJ  w  INGO  MOLITOP 

»  ppiMT-^flGESBflTUM"  =  IWUTW» 

%  REM  Äs  ZU  100  TStt'S 

SO 

S  säW"-«" 

flo  REH  EINGflBETEIL 
110  : 

120  •• 

130  X*=l 
140  : 

\lt  print -aUJttweilÜdhDAF' 

170  PRINT  ttUMB 

ISO  ; 

200  PRIUT"SSTEflHl,.:X-;  "'S" 

210  INPUTTESO« 

220  PR  I HT  "  ß3=SHR2EU  GT VP  ■* 

230  INPUTFTSOO 

S  SS s" 

lll  1FTE.OO— ■OW-EFT.CTE.tX»  ,U  =  " 

273  PRU-IT;;aRLLESR^CHTIG^S*-^  Jfl„THE|)295 
290  INPUT “  jhUMRI  •  n 
f;30  y.=X+l 

295  GOTO160 

296 

297  RETURN 
30O  : 

31®  ; 

32©  ■ 

330 

350  REM  BRUCKAUSGlABE  DRUCKER  SN. 

iirrr::— 

400  REM  DRUCKBUSGSBE _  —  ~ 

410  PR  INTIM'“ _ — - ' 

420  PRINT44." 

430  PR INT »4 
440  PR. INT #4 
450  PR  INTIM 

460  PRINTH4  i-rnpfiLLEY  - "  ;RIGHTS<DA*.2> 

r0Ä,I^HT— «4„- 

CLOSEI 
435  PRINT 44 
490  PP.IHT44 
500  PRINTS4 
1  303  PRINT44 

510  PRINT 44 
520  PRINT44 
530  PRIHT44 
540  PRINT44 
545  PRIHT44 
NT  44 
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■".HAITIS«'!  GETST 


IHhtn-  KFi- _ 

-STRND  STARTZEIT 


>• ;  ft*oo  ;  ” 


ftttntrra  .f*« '  BES. 

570  PR  INTIM."  -  - - 

580  PRINT44 . "HR • 

590  PR  INTIM 
410  PRINT44 
620  PPINT44 • 

63©  OPEN 1.4.1 
,-40  fork=itox 

642  IFK<10THENPRINT#1  • 

650  PRINT4 1  .-L'  n 

857  PRINT#1-TE**.K>-  flUF 
660  _ 
“.UV*™«*'«*'™™”**'**'*” 

7U9  PORrÜtOP-1  '  PRINT44  .  —  '  NEMTS 
720 

730  .  , _ T 

740  PRINT#-!.’» - 

750  ■ 

760  NEXTK 
77Ö  • 

ein  .*o  »«-««söf6  m°'m”  ® 

S»  SffiSÄ”*»  / 

•320  : 

340  : 

850  CLOSE4  CLUSEI 
360  : 

P  RETURN :PHM  ENDE  DRUCKAUSCABE 

REM  SICHERN  BEP.  BOTEN 
91>3  - 

350  PRINT  PR  INT  "SS" 

960  • 

370  - 

930  OPEN1  •  1  "2 

1000  PR INT4 1  .X ’ PRINT " BATEN  WERDEN  GESICHERT" 

1  ISS  FPINT4 1  ’.X  PRINT“SHEINEN  MOMENT  BITTE" 

1030  PP- INT 4 1  -X 
1-040  PR  INT  41  -X 
1050 

1060  FORM“  iTOX 

10S0  PRINT«  l'TE*<JO 
1090  PRINT4!  ■FTT'.L.' 

1100  PRINT41  .'BE4‘-k> 

1110  : 

Lisa  closei  Listing  1  Programmteil  1 

ÜSS  RETURN ;  REM  EBBE  DER  BRTEHS I CHERUNG  UW* 

1170 
llOO 

\£»  REN  LABEN  PER  DATEN 

I  srsf.sÄ&sÄ-"" _ 
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1265 
1270 
1230 
1230 
1300 
131© 
1320 
1330 
1340 
13S0 
1360 
1 370 
1330 
1390 
1400 
1410 

1420 

1430 
1440 
1450 
1460 
1470 
1480 
1430 

1500 
1510 
1520 
1530 
1540 
1550 
1560 
1578 
1530 
1590 
1600 
1618 
1620 
1625 
1630 
1640 
1645 
1650 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1730 
1790 
1300 
2000 
3000 
3020 

3030 


PRWT"mTE"  "ERDEN  GELADEN" 

INPUT#2  "x  PRINT"EINEN  MOMENT  BITTE" 
1NPUTD2.X 

FORK=1TOX 

INPUTS2,TE*<k> 

INPUTJS2  ,FT$CK> 

INPUT#2,be*<K) 
nextk 
CL0SE2 

:ETURN:REM  ^  *»  EADEVOE'GANGS 
REM  BEG1NN  DES  PROGRAMMS 


PRINT 

PRINT 

PRINT' 

PRINT- 

PRINT' 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT¬ 

PRINT" 

PRINT“ 

PRINT- 

PRINT- 

PRINT" 

PRINT"® 

PRINT" 

IHPIJT 


«UTORALLEV  31 
I  PROGRAMMS 

I  ERFASSEN  DEr"|-  ' 
I  TERM  "3  UND  j. 

1  fahrzeugtvpem i - 
I" 

iai  =EIHGABE 
;®=DRUCK  LISTE  s ■ 
^■•=DA.  SICHERN  Sl" 
*=W-  LADEN  3I- 
<«=E  N  D  E 


■NAHL  1UII",  A 

IFA>50RA<1  THENPRiHT-a- ,  ;  GOTO  1 700 
ONAGOSUB  108,350  .900 , 1200  l£0g0 


GOTO 1500  Ä-  1 

PRINT"3":END  löcn<Uß) 

0PEH1  ,4,0:CMD1 

U.  IST 

PRINTttl ,PREC0> 

READV. 


Flußdiagramm  des 
1-  Programmteils 


sss£ 

OPEN  4.4.0  EpsoN  MO«» 

OPEN  1  ke^-hritt 

e»£* 

S®*  *gS** 

^1’SK“E  „ÖSCB®'«®®® 

CHR^2T); 


chb*0» 

cheä'ä  , 

fää$* ' 

CV\PS^2T)' 

csrSOQ 

chs*® 

CWD 


,'Vv 

Y^C: 
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Flußdiagramm  des 
2.  Programmteils 


AUTORALLEY  2 .TEIL  VON  INGO  MOLI TOR 

5  P0KE3S379 , 25 : POKE650 / 1 2S 
1©  REM  AUSWERTUNG 
20  REM  DER  RRLLEV  . 

40 
50 
60 

70  D I  MT  Ei  C  1 00  >  ..  FTi  <  1 00  >  ,  BEi  1 1 00  00  >  ,  RM  <  1 00  >  ,  RZ  <  1 00  >  /  EM  <  1 00  >  /  KM  <  1 00  > 

75  DIMZ2C100)  /GZO00>  ,PK<100>  ,GP<100>  ,G2<100>  /  03000)  /fl<100> 


Listing  2.  Programmteil  2 


Epson  werden  mit  OPEN  1,4,1  ein¬ 
geschaltet.  Die  Epson-Befehle  sind 
im  Anschluß  an  das  Listing  noch  ge¬ 
nauer  erklärt.  Die  Jahreszahl  des 
anfangs  eingegebenen  Datums 
wird  jetzt  zur  Überschrift  der  Liste 
genutzt.  Zeile  642  sorgt  für  rechts¬ 
bündige  Startnummern ausgabe.  In 
Zeile  740  werden  Spalten  angelegt 
für  die  spätere  Eintragung  von  An¬ 
fangskilometern  und  Startzeit.  Die 
fertige  Startliste  kann  man  dann  am 
Tag  der  Rallye  mit  an  den  Startplatz 
nehmen,  um  die  aktuellen  Daten 
dort  einzutragen. 

3.  Daten  sichern  Zeilen  900  bis  1160 
Die  Daten  werden  für  den  Aus¬ 
wertungsteilgespeichert,  entweder 
auf  der  Commodore-Datasette  oder 
nach  entsprechender  Änderung  auf 
Diskette. 

4.  Daten  laden  Zeilen  1200  bis  1470 
Hier  werden  die  gespeicherten 

Daten  wieder  geladen,  um  even¬ 
tuelle  Änderungen  durchzuführen. 

5.  Ende  Zeile  2000 

In  Zeile  2000  endet  das  Pro¬ 
gramm. 


2.  Programmteil 


Nach  Abfrage  von  Datum  und 
Uhrzeit  (HHMMSS)  wird  das  Menü 
gezeigt.  Das  Datum  wird  hier  nicht 
vom  ersten  Programmteil  genom¬ 
men,  da  ja  Anmeldearbeiten  und 
Auswertungsarbeiten  an  verschie¬ 
denen  Tagen  geschehen. 

Der  Computer  sollte  bei  der  Bear¬ 
beitung  des  zweiten  Programmteils 
am  Zielplatz  der  Rallye  stehen,  da¬ 
mit  schneller  auf  die  neuesten  Mel¬ 
dungen  reagiert  werden  kann.  Zu¬ 
erst  muß  der  Menüpunkt  »8.  Laden 
alte  Daten«  gewählt  werden,  um  die 
Daten  aus  dem  ersten  Programmteil 
wieder  abzurufen.  Dies  geschieht  in 
den  Zeilen  6000  bis  6300.  Danach 
kehrt  das  Programm  automatisch 
zum  Menü  zurück. 

1.  Daten  ergänzen  Zeilen  100  bis  370 

In  diesem  Menüpunkt  werden  die 
Daten  des  ersten  Programmteils  mit 
den  aktuellen  Daten,  die  am  Start¬ 
platz  in  die  Liste  eingetragen  wur¬ 
den,  verknüpft.  Hier  kann  nochmals 
die  Startgeldüberwachung  erfolgen 
und  korrigiert  werden.  Es  müssen 
Start-Kilometer  und  Start-Zeit  einge¬ 
geben  werden.  Sind  alle  Teams  ak¬ 
tualisiert,  werden  mit 
7.A/N  Daten  Zeilen  4000  bis  4720 
die  neuen  Daten  abgespeichert  be¬ 
ziehungsweise  wieder  geladen. 
Hiermit  wird  erreicht,  daß  der  Com¬ 
puter  nicht  stundenlang  bis  zum  Ein¬ 
treffen  der  ersten  Teilnehmer  das 
Programm  halten  muß. 


30  GOT O3Q00 ; REM  PROGRRMMflHFHNG 
90  ! 

100  REM  ERGRENZUHG 
110  K=1 
115  : 

120 
130  : 

140  ' 

1 50  PRINT" I NGABE TEILS" 

16©  PRINT'TJUUÜUUU - 3" 

170  : 

180  = 

190  : 

200  PR I NT " 3J8JTERM  :  "  ;  K;  "3" 

210  PRINTTE* <K> 

220  ' 

230  PR  I  NT  "  AHRZEUGT  VP :  3" 

240  PRINTFTSOO 
250  : 

260  PRINT"33BEZAHLT  3" i BES CK > 

270  INPUT"  J|UU";BE*0O 

275  PR  INT"  BÖ-JOCH  I.  WERTUNG3  ";BI*<K> 

277  INPUT"  JUUU"/DI*<K> 

289  • 

290  INPUT " BCXM-STRHD " ; AM  CIO 
295  INPUT " H33TARTZE I T " ; HZ < K > 

300  : 

310  : 

320  PR  INT"  BISHER  S  WAR 'S  !  3" 

33©  WAIT19S / 1 : GETA$ 

340  K=K+1  IFK=X+10RK>XTHEMRETURN 
350  : 

360  GOTO 12© 

370  REM  ENDE  HER  ERGflENZUNG 
380  ■ 

390  : 

400  REM  ANKUNFT  DER  TEILNEHMER 

419  : 

420  s 
430  : 

440  • 

450  PR  I  NT  “^aillllllPNKUNFT  " 

455  = 

460  PR I NT ■■  SW» WIDER  TEILNEHMERS" 

470  PRINT" - " 

430  •• 

490  : 


2.  Ankunft  der  Fahrer  Zeilen  400  bis  960 

Eingegeben  wird  die  Startnum¬ 
mer  des  Teams,  das  soeben  einge¬ 
troffen  ist.  Ist  es  disqualifiziert,  wird 
das  in  Zeile  550  erkannt  und  das  Me¬ 
nü  erscheint  wieder.  Ist  dieses 
Team  noch  in  der  Wertung,  so  wird 
die  Abfahrts-  und  Ankunftszeit  ge¬ 
zeigt.  Die  Ankunftszeit  wird  von  der 
internen  Uhr  genommen.  Danach 
erscheint  der  Anfangskilometer¬ 
stand  und  der  Endkilometerstand 
wird  abgefragt.  In  Zeile  610  werden 
die  gefahrenen  Kilometer  berech¬ 
net.  In  den  Zeilen  620  bis  640  wer¬ 
den  die  Punkte  für  die  benötigte  Zeit 
vergeben.  Da  Startzeit  und  Endzeit 
verrechnet  werden,  ergibt  sich 
nicht  die  reale  Zeit,  sondern  ein 
Wert,  der  der  Punktrechnung  zu¬ 
grundegelegt  wird.  In  der  Zeile  635 
muß  abhängig  von  der  Mindestdau¬ 
er  der  Rallye  dem  Wert  der  Ge¬ 
samtzeit  ein  Wert  hinzuaddiert  wer¬ 
den  (die  Gesamtzeit  wird  von  der 
Mindestdauer  abgezogen).  Im  Pro¬ 
gramm  ist  500  als  Wert  vorgegeben. 
In  der  Zeile  680  werden  Strafpunkte 
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für  beispielsweise  zu  schnelles  Fah¬ 
ren  wieder  abgezogen.  Auch  dieser 
Wert  muß  je  nach  Dauer  der  Rallye 
geändert  werden.  In  Zeile  740  bis 
830  können  die  Punkte  für  gelöste 
Aufgaben  vergeben  werden. 

Die  erreichten  Gesamtpunkte  des 
Teams  werden  in  Zeile  890  errech¬ 
net  und  angezeigt.  Stimmen  die  ein¬ 
gegebenen  Daten  eines  Teams 
nicht,  kann  man  unter  Menüpunkt  2 
einfach  wieder  die  Startnummer 
des  Teams  eingeben  und  die  Werte 
korrigieren. 

3.  Vorläufige  Liste  Zeilen  1000  bis  1430 

In  diesem  Menüpunkt  können 

vorläufige  Ranglisten  auf  dem  Bild¬ 
schirm  angezeigt  werden;  so  kann 
man  zu  jedem  Zeitpunkt  der  Rallye 
den  aktuellen  Stand  der  einzelnen 
Fahrzeuge  erkennen  und  verfol¬ 
gen.  Nachdem  alle  Fahrer  am  Ziel¬ 
platz  eingetroffen  sind,  kann  mit 
Punkt 

4.  Ausdruck  der  Liste  Zeilen  2000  bis  2910 
die  endgültige  Liste  ausgedruckt 
werden.  Mit  Open  1,4,1  wird  der 
Epson-Möglichkeiten  und  mit  Open 
2,4,0  der  Commodore-Drucker  an¬ 
gesprochen.  In  Zeile  2050  wird  zu  ei¬ 
nem  Unterprogramm  (30000  bis 
30900)  verzweigt,  das  grafisch  eine 
Reihe  von  Autos  (oder  anderen 
Symbolen)  druckt.  Wem  diese  Mög¬ 
lichkeiten  mit  seinem  Drucker  nicht 
zur  Verfügung  stehen,  der  läßt  ganz 
einfach  die  Zeüen  2050  und  30000 
bis  30900  weg.  In  den  Zeilen  2080  bis 
2270  werden  die  Teams  mit  Rang, 
Punkten  und  gefahrenen  Kilome¬ 
tern  ausgedruckt.  Danach  springt 
das  Programm  automatisch  zum  Me¬ 
nü  zurück. 

Für  die  Sortierung  der  Daten  wur¬ 
de  in  Zeile  10000  ff.  ein  Shell-Sort- 
Unterprogramm  eingebettet.  Die¬ 
ses  erlaubt  auch  die  Sortierung  gro¬ 
ßer  Datenmengen  in  relativ  kurzer 
Zeit.  Es  wurde  bewußt  keine  Quick- 
Sort-Routine  genommen,  da  diese 
bei  kleineren  Datenmengen  keinen 
Zeitvorteil  gegenüber  Shell-Sort 
zeigt. 

5.  Druck  der  persönlichen  Liste  Zeüen  7000 
bis  7500 

Hier  wird  für  jeden  Rallyeteüneh- 
mer  die  Endliste  ausgedruckt.  Un¬ 
ter  der  Überschrift  erscheint  der  je¬ 
weilige  Platz  des  Teams  und  das 
Team  wird  unterstrichen.  Aus  Zeit¬ 
gründen  wird  hier  der  Druck  der 
Autoreihe  unterlassen.  Wem  es 
Spaß  macht,  der  kann  natürlich  die 
Zeile  7110  GOSUB  30000  einfügen. 
Allerdings  kostet  dieser  Spaß  dann 
beim  Drucken  etwas  mehr  Zeit. 

6.  Ende  Zeile  41000 

Über  die  Eingabe  des  Menüpunk¬ 
tes  6  ist  das  Programm  beendet. 


50©  PR I NT " äBTEfiM  NR  .  3" 

510  INPUTK 

520  PRINT"2BTEAM  NR  . :  "  ;  KJ  ”3''  -  PRINT” 

53©  PRINT"gTEfiM  :  I";TE*<IO;  "3" 

540  : 

559  PR I NT " SÖIOCH  I  .WERTUNG«  "IDI-SOO 
553  INPUTDI*<K> 

556  IFDISOOO"  J,,THENTE*<K>=TE5<K>  +  M  DISQUALIFIZIERT"  :  GP<K>=© :  03 <10=0  : G2<K>=0 :  KM 
<K>=0 

557  I FD I  $  <  K  >  <>  "  J  " THENRETURN : REM  WENN  DISQUALIFIZIERT  DANN  ZURUECK  ZUM  MENUE 

560  PRINT"£ÖABFAHRT  <SSMM>3" 

570  PRINTRZ<K> 

580  PRINT" H38NKUNFT  <SSMM>3" 

590  Z2 <K)=VAL<LEFT*‘'TI*  ,4>>  PRINTZ2<K> 

600  PR  I  NT "  ffiPNFANO-KMS" 

605  PR  INT  AM  CIO 
607  PR  I NT "äöEND— KM3" 

609  INPUTEMOO 

610  PR I NT " »Q-’EFflHRENE  KM. 3" 

612  KM <K> =EM< K > -AM CK  > : PRINTKM<K> 

615  : 

62©  PR INT "Hy UNKTE  F.  ZEIT" 

630  0Z<K>=Z2<K>-AZ<K> 

635  GZ<K>=-GZ<K>+5©0  REM  MUSS  JE  NACH  LAENOE  DER  RALLEV  VERAENDERT  WERDEN 
640  PRINTGZ<K>;  "3" 

650  : 

660  REM  ZU  SCHNELL  GEFAHREN 

670  REM  MUSS  JE  NACH  WUNSCH  VERAENDERT  WERDEN 

680  IFOZ<K>>300THENI=GZ  <10-150 :  PR  INT  "STRAFPUNKTE"  ;  I  :  QZCK>»GZCK>-1 
63©  : 

70©  REM  PUNKTE  FIJER  KM  MUSS  JE  HACH  WUNSCH  VERAENDERT  WERDEN 
705  PRINT"£Ö='UNKTE  F.  KM3" 

707  KM<K>=<KM<K>-500>#-l 

709  PRINTKMCIO 

710  : 

720  : 

730  : 

740  REM  PUNKTE  FUER  GELOESTE  AUFGABEN 
750  • 

760  PRINT" asFUHKTE  F.  AUFGABENS" 

770  INPUTPK<K> 

780  : 

790  i 
300  : 

310  : 

320  INPUT"RICHT IG  JUUU"  J A* - REM  PUNKTE  RICHTIG  WENN  NICHT  DANN  NEUE  PUNKTE 
330  I FASO" J"QRLEFT* <A* , 1 ><>" J" THENPR INT" .TTTT'  J  : GOTO760 
840  • 


350 


REM  GESAMMTPUNKTE 


86©  • 

370  PR  I  NT  "  aaaSESAMMTFUNKTES 

880  S 

390  GPCK>=PKCK>  -t-G2CK>+KMCK> 

909  : 

910  PRINT" - "  .  GPCK> 

920  : 

930  ■ 

940  WA  I T 1 98  .•  1  :  G ETA*  :  RETURN 

950  '• 

960  REM  ENDE  ANKUNFT  TEILNEHMER 
970  : 

380  : 

990  : 

1000  REM  VORLAU EFI GE  RANGLISTE 
1010  : 

1020  : 

1030  : 

1040  PRINT" 3fVO RLAUEF I GE  LISTE" 

105Ci  PRINT" - 3 - " 

1660  : 

1070  r 
1030  : 

1090  REM  HILFS VARIABLEN 
1100  FORK=1TOX 

1120  G2CK>=GPCK> :G3<K>=6P<K> 

1130  IFLEFT* CDI*CK> , 1>="N"THENG3<K>=0 
1140  NEXTK 
1150  : 

1160  : 

1170  REM  SORTIERUNG 
1130  • 

1190  FORN= 1 TOX— 1 
1200  F ORK= 1 T OX— 1 
1210  : 

1220  I FGZ<  K »G2  < K+ 1 >  THENL=G2 <K> : M=G2 C K+ 1 > : G2< K >  =M : G2  < K+ 1 ?  «L 
1230  •• 

1240  NEXTK, N 
1250  : 


Viel  Spaß  bei  der  Auswertung  der 
nächsten  Orientierungsfahrt.  Wem 
das  Eintippen  der  Programme  zu 
mühselig  erscheint,  der  kann  sich 
gerne  an  den  Autor  wenden,  und 
das  Programm  auf  Kassette  erhal¬ 
ten.  (Ingo  Molitor/kg) 


1260  : 

1270  REM  ZUORDNUNG  DER  HILFSVARI  FIELEN 
1230  : 

1235  PRINT"SFLATZ  PUNKTE  KFZ  iS" 

1290  L-0 
1300  FORK-1TOX 
1310  ; 

1 320  PR I NTX-K+ 1 J  02  <  K  > , 

1330 

1340  I FG2 < K > “03 C  L  > THENPR INT"  ".FT*CL>  L-0  GOTO13S0 
1350  L=L+1  IFL>XTHENL=0 
1360  GOTO 1340 
1370  : 

1330  NEXTK 
1390  : 

1400  : 


Listing  2.  Programmteil  2 
(Fortsetzung) 
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1410  REM  ENDE  SORTIEREN 
1420  WO  I T 1 98  r  1 GET  A* 

1430  RETURN 
1440  ' 

1450 

2000  REM  AUSDRUCK  DER  LISTE 

2005  REM  EROEFFNEH  SIMULAT IONS- 1525  UND  EPSON  MOEGL I CHKE I TEN 
20 1 0  OPEN 1,4,1: 0PEN2 ,4,0 
201?  PR INT# 1 ,CHR*<7> 

2020  PRINTttl  ,CHR$<27>;"N";CHR*<3>; =PRINT#1 ,CHR#<7>; 

2025  PR  I NT# 1  , CHR*< 7  > ; 

2030  PR  I NT #2 , " oüoooüoooüooooooooooooqooüdooooooooooooogooooqoqoqooooooo 

ooooooo" 

2040  PRINT#1  ,  CHR*<  14V:  "AUSWERTUNG  flUTORALLEV  VOM  " DA«;  CHR*<2©> 

2045  PR I NT #2 , "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

ooooooo 11 

2050  GÖSUB30000 : REM  DRUCKEN  VON  AUTOS 

2055  PRINT# 1 

2056  PRINT#1 

2057  PRINT#1 
2053  PRINT#1 

2060  PRINT#1  ,CHR*C2?>J  "G"; 

2070  PR INT# 1 , "RANG  PKT.  KM  FAHRZEUG  TEAM" ; CHR* <27>; "H" 

2072  PRINT#2 , " - 


2075 

2030 

2035 

2090 

2100 

2110 

212© 

2138 

2140 

2150 

2160 

2130 

2185 

2190 

2200 

2230 

2260 

2270 

2910 

300© 

301© 

302O 

3030 

3035 

3037 

3040 

3050 

306© 

307© 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3142 

3146 

3148 

3150 

3160 

3170 

3180 

319Ö 

3200 

3210 

322© 

3230 

3240 

3250 

3260 

3270 

3230 

3290 

3300 

3310 

3320 

3325 

3330 

3340 

3350 

3360 

3370 

3380 

3385 

3390 

3408 

3410 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 


PRINT#! 


GOSUB 10009 
L=0 : H-0 

FORK=XTO 1 STEP- 1 
L=L+1 

IFL<10THENPRINT#1 ,"  ";L; : GOTO 2 150 

I FL< 1 00THENPR I NT# 1 , "  ",L; :GÜTO2150 
PRINTttl," 

PRINT#1 ,G3CK>  > KMOOl "  ";FT*<K>JM 
G=LEH<FT*<K>  >  +-8 :  0=38-0 

F0RT=1T0G :  F’RI NT#1 , "  “ ;  : NEXTT : REM  LEERSTELLEN  BIS  TEAM  DRUCKEN 
PRINT#! ,CHR*< i5>JTE*<K>!CHR*<18> 

H=0 

GOTO2270 

NEXTK 

CLOSEI : CL0SE2 : RETURN : REM  ENDE  DRUCKVORGANG 
REH  PROGRAMMVORSTELLUNG  DATUM  UND  UHRZEIT 


pr  int"  :inr»»n  i - 

RRINT"|HUI  I  I" 

PR I NT 1 "  »Ml  1 31  NGO  MOL I TORS  I 
FR I NT" »»Ml  I  I" 

PRINT'  UüUUia  SOFTWARE  3  I 
PRINT"IM*Jia  IDEE  3  I 
PR  INT"  »MH  I  1" 

PRINT"»MM I PR AESENT I ERT  I" 
PF:  INT"  »Ml 1  I" 

PR  INT"  »MIIH  AUT0RALLEV3  I 
PR  INT"  »Ml  I  I" 


Listing  2.  Programmteil  2 
(Fortsetzung) 


PR  INT"  »»Ml  I  I" 

PR  I  NT  "  »Ml  I  AUSWERTUNG  I  " 

PRINT  "UHU  I  -  I" 

PR  INT  "UHU  I  I" 

PRINT" »MJ  1 - 1  " 

PRINT" S1KO  BV  aiMO-SOFTS  1983" 
FORK= 1 TO4000 : NEXTK 
INPUT "TAGESDAT . " J DA* 

1 NPUT " UHRZE I T  HHMMSSUHUUUI " ;  TI* 


REM  ANFANG  MENUE 

PR  I  NT  "  3ffiHMHfeftHUUUMENUE 
PR  I  NT  "  fUMUlll - 3' ' 


PR INT"  fflll  =DA .ERGAENZEN" 

PR  INT  "BE!  »ANKUNFT  D.  FAHRER" 

PR  INT"  8813  =VORLAUEF I GE  LISTE"  REM  AUF  BILDSCHIRM 
PRINT" J9J4  «AUSDRUCK  D.  LISTE" 

PRINT"  J*|5  »DRUCK  D.  P.  LISTE” 

PRINT  "BIS  »ENDE 
PR  INT  "  »IT  =AXN  DATEN 

REM  A/N  DATEN  FUER  UNTERBRECHUNG  DES  PROGRAMMS  BZW.  WIEDERAUFNAHME 
PR  INT  "SU;!  =g_ADEN  ALTE  DATEN  SUMM"  :  REM  DATEN  DES  1 -PROGRAMMS 

I  NPUT  "WAHL  2U1T  IR 

ONAGOSUB 1 00 ,400 , 1 000 ,2000 , 7000 , 4 1 000 , 4000 , 600© 

GOTO3230 


REM  LADEN  SAVEN  DATEN 

PRINT"aBH(HB>aLiSC  RDENH" 

PR INT" ODER  H“ 

PR  INT"  >33  SK  AVENJ3" 

PR INT" DATEN  ?Jfl" 

INPUT"»1AHL  *1111"  ;  W*  :  I  FW*=  "  THENRETURN 
I FW*<> " S " THEN I FW*<> " L" THENRETURN 


4100 

I  FW*="S  THENG0T045 1 0 

4110 

4120 

RRINT"3DK  .DATEN  WERDEN  GE-  LADENSBJ" 

4130 

4140 

0PEN1 ,1.0 

415© 

416© 

I NPUT# 1 , X : PR I NT " MBME INEN  MOMENT  BITTE" 

417Ö 

INPUT#1  ,X 

4180 

INPUT# 1 ,X 

4190 

INPUT# 1  ,X 

4200 

INPUT#1 ,X 

4218 

4220 

F0RK=1T0X 

4230 

IHPUT#1 ,TE*<K> 

4240 

INPUT# 1 , FT* CK 5 

4250 

INPUT# 1 , BE* CIO 

4260 

I NPUT # 1 ,  D I  *  <  K  ) 

4278 

I NPUT # 1 ,AMCK) 

428© 

INPUT# 1 ,AZCK> 

4290 

4308 

NEXT 

4310 

CLOSEI 

4320 

RETURN: REM  ENDE  LADEN  DATEN  ZURUECK  ZU 

MENUE 

451© 

452© 

PR I NT "30K . DATEN  WERDEN  GE-  SAVEDäS" 

4540 

0PEM1 ,1,2 

4550 

4560 

PRINTttl ,X : PRINT" WMKEINEN  MOMENT  BITTE" 

4570 

PRINT#1 ,X 

4530 

PRINTttl ,X 

459© 

PRINTttl ,X 

4600 

PRINT#1 ,X 

4610 

4620 

FORK=lTOX 

4630 

PRINTttl ,TE*<K> 

4640 

PRINTttl ,FT*<K> 

4650 

PRINTttl ,BE*<K> 

4660 

PRINTttl , D I *  <  K > 

4670 

PRINTttl ,AM<K> 

4680 

PRINTttl ,RZ<K> 

4690 

4700 

NEXT 

4710 

CLOSEI 

4720 

RETURN: REM  ENDE  SAVEN  DATEN  ZURUECK  ZU 

MENUE 

4990 

6000 

REM  LADEN  DATEN  DES  1 .PROGRAMMS 

6010 

6020 

6030 

6040 

PRINT" 3S0LLEN  ALTE  DATEN  GE-  LADEN  WERDEN" 

6050 

6060 

INPUT"  NIIU" ,  A* 

6070 

6080  IFA*="N"OP.LEFT*CA*  ,  THENRETURN 

609©  : 


6095  : 

6190  0PEN1 ,1,0 
6110 

6120  I NPUT# 1 , X : PR I NT " BMBE I NEN  MOMENT  BITTE" 

6130  X  NPUT # 1 , X 
6148  INPUT#1 ,X 
6150  INPUTttl ,X 
616©  INPUT#1,X 
6170  : 

6130  = 

6190  F0RK=1T0N 
6200  : 

6210  INPUTttl ,TE*<K> 

6220  INPUT#1 ,FT*<K> 

6230  INPUT# 1 ,BE*<K> 

6265  NEXTK 
6270  : 

6230  CLOSEI 
6290  : 

6300  RETURN: REM  ENDE  LADEN  DATEN  DES  1 .PROGRAMMS 
ZURUECK  ZUM  MENUE 
7000  : 

7010  REM  DRUCK  DER  PERSOENLICHEN  LISTE 
7020  : 

7030  R=0 

7040  F0RK=XT01STEP-1 
7042  R=R+ 1 

7045  OPEN 1,4,1: QPEN2 , 4 , © : REM  S I MUL I EREN  DES 
VC— 1525  UND  EPSON  MOEGL I CHKE I TEN 
7050  PR I NT# 1 , CHR*  <  7  > 

7060  PRINT#1 ,CHP*<27>1 "N" ; CHR*<3> J  : PR INT# 1 ,CHR*<7) 1 
7870  PRINT#l ,CHR*<7>1 

7030  PR I NT #2 , " OOOOOOOODOOOOOOOOOOOOOOOOÜOOOOOOOOOOO 
OOOOOOO" 

7090  PR INT# 1 ,CHR*< 14) J "AUSWERTUNG  AUTORALLEV  VOM  "J 
DA* CHR*  C2©> 

7 1 0©  PR I NT#2 , " OOOOOOOO'OOOOOOOOOOOOOOOOOOOOOOOOOOÖÜO 
OOOOOOO" 

71  10  : 

7120  PRINT# I 
7125  PR I NT# 1 
7130  PRINT#2 , " 

7132  PRINT#2, " 

7134  PRINTÜ2 , " 

7136  PRjNT#l 
7140  PRINT# 1 

7150  PRINT#! ,CHR*<27>J "G"; 


mmmzmmM" 

PLATZ" i R 
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So  machen’s  andere 


VC  20 


7160  PRINTttl ,"RRMG  PKT.  KM  FAHRZEUG  TERM" ;CHR*<27> J "H" 

7170  PRIHT#£  .■  " - - - 


71S0  PRIHTttl. 

7200  OOSUE 10000 
7220  FORV=XTO 1 STEP- 1 
7230  L=L+ 1 

7246  I FV=KTHENPR I HT# 1 , CHR$ <27)1 " — " ; CHRS <  1  > ; : REM  JE WE ILDES  TERM  WIRD  UNTERSTRICHE 
H 

7250  I FL.<  1 0THENPR I  NT#  1  ,  "  " L  •  :  GOTO7270 

7260  IFL< 1 80THEMPR I NT #  1 , "  " ; L ; : GQTO7270 
7270  PRINT# 1," 

7280  PRINTttl ,G3<v>;KM<V>; "  ";FT*tV>;" 

7300  G=LEN<FT*<Y>  >+8  •  G-30-G 

7310  FORT=lTOG  :  PRINTttl  ,  "  "  ,!  :  NEXTT 

7320  PR  I NT# 1 , CHR* C 150; TE*< V > i CHR# < 1 8 > 

7350  : 

7360  : 

7370  I FV=KTHENPR I HT# 1 ,GHR#<27>1 ; CHR*<©> ; 

7380  NEXTV 
7385  = 

78 10  PR I NT# 1 , CHR$ <27  > ; " E " 

7815  PRINT#  1  .-"DIE  RENNLEITUNG  BEDANKT  SICH  FUER  IHR  FAIRES  MITFAHREN  !  ";CHR*<27> 

;  "F" 

7820  REM  PR I NT# 1 ,CHR$<12> 

7840  CLOSEI  CLOSE2 
7850  NEXTK 

7300  RETURN: REM  ENDE  DES  AUSDRUCKS  PERSOENLICHE  LISTEN 
1O000  REM  SHELL-MET2HER-S0T I ERROUT I HE 
1Ö010  : 

1002©  i 

10030  J6-X 

1004O  J6-I NT  < J6/2 > 

10050  IF<J6=0> THEN 10490 
1006©  J2=X-J6 
10070  F0RJ=1TQJ2 
10030  I=J 
10090  J3=I+J6 

10180  IF<G3< I ><=G3< J3> >THEN101 60 

1O110  H 1»G3< I > : H2=KM  < I > : H3$=FT»< I > : H4$=TE*< I > 

10120  G3< I >— G3< J3> : KM< I >=KM< J3) : FT$< I>=FT*<J3>  TE*CI >=TE*< J3> 

10130  G3C  J3>=H1  :  KM< J3>=H2 :  FT J-<  J3)=H3*  =  TE*<J3>-H4* 

10140  I=I-J6 

10150  I F  <  1  >0  '•  THEN  1 00  90 

10160  NEXTJ 

1O170  GOTO 1O040 

10490  RETURN: REM  ENDE  SHELL-SORT 
30000  REM  AUTOS  DRUCKEN 

3001O  REM  IN  EPSON  BIT  IMAGE  SCHREIBWEISE 

30015  PR4+w#i  ,chr*<27>;  "F";  G4SR|  OnLinei^ 

30025  FORT=1TO20 

30O3O  PRINTttl  ,CHR*<27>;  "K"  ;  CHR* <22> ;  CHR-P<8>; 

3004O  F0RN=1T022 

30045  READD 

30050  PRINTttl ,CHR#<D>J 

30860  NEXTN 

30065  RESTORE : NEXTT 

30800  DRTR24 , 56 , 56.56 , 60,126,1 53 , 1 56 , 1 52 , 243 , 240 , 1 52 , 1 52 , 1 52 , 1 56 , 1 53 , 1 26 , 60 ■ 56 .2 
4,0,0 

3O900  RESTORE ' RETURN 
4 0000  OPEN 1 ,4 ,0-CMDl  LI ST  PR I NT# 1 

41000  PRiNT"^.wmirft>M.Mi"; :  end  Ljstjng  2.  Programmteil  2 

READV.  (Schluß) 


^*~~'~****bbh 

^mTc^mi47) 
POKE  198^0  5 

^PEEK(631) 
IFA^IOO  mri. 


Tastaturpuffei 


P°KE  J98.0 

£=pPEK(63l) 

Fä=137  THq!?  36879’  126 

StZpSSZü* 

GOTO  420 


Sie  haben  natürlich  gemerkt,  daß  die  Abfrage  der  f3-Taste  kombiniert  mit  CTRL  aus  dem  Tastaturpuf¬ 
fer  nicht  geht.  Der  Grund  dafür  ist,  daß  diese  Kombination  keinen  eigenen  ASCII-Code  hat.  Die  so  laut 
gepriesenen  32  Funktionstasten  sind  also  nur  bei  einer  Abfrage  der  Speicherzellen  203  und  253 
möglich,  in  Zeile  460  des  Programms  4  habe  ich  daher  reumütig  die  f3-Taste  allein  verwendet. 

Diese  beiden  Programme  gehören  als  Lösung  zu  einer  Aufgabe  die  im  Beitrag  »Alle  Tasten-,  Zeichen-  und  Steuer¬ 
codes«  gestellt  wurde. 
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Eine  berechtigte  Frage, 
besonders  bei  beengten 
Platzverhältnissen.  Eine 
zwar  nicht  neue,  aber 
originelle  und  praktische 
Lösung  eines  Lesers 
stellen  wir  hier  vor. 

Blickwinkel 


Bild  2.  Bei  Gebrauch  »Klappe  auf  —  Monitor  ran  —  los  geht’s« 


Die  Benutzung  des  Wohnzim¬ 
mertisches  oder  gar  des 
meist  viel  besser  geeigneten 
Eßzimmertisches  stößt  in  der  Regel 
auf  heftigen  Widerstand.  Der  Kü¬ 
chentisch,  ebenfalls  nicht  zu  verach¬ 
ten,  schließt  sich  durch  seine  ungün¬ 
stige  Lage  selbst  aus.  Wer  hat  schon 
in  der  Küche  einen  Fernseher? 

Apropos  Fernseher  —  man 
kommt  auf  die  Dauer  (des  lieben 
Friedens  willen)  ohne  eigenes  Ge¬ 
rät  nicht  aus.  Welche  Ehefrau  dul¬ 
det  schon  die  recht  ansehnlichen 
Bilder  mit  »PEEKs«,  »POKEs«  oder 
gar  »SYNTAX  ERROR«,  wenn  sich 
gerade  so  Fieslinge  wie  »J.R.«  oder 
»Alexis  Carrington«  auf  dem  Bild¬ 
schirm  bewegen. 

Arbeitsplatz-Rationalität  - 
nicht  nur  ein 
Schlagwort 

Der  Heimcomputer  sollte  an  ei¬ 
nem  Ort  stehen,  wo  er  geschützt, 
weitgehend  unsichtbar  (nach  einem 
mißlungenen  Programm  sollte  man 
die  Genugtuung  haben,  ihn  verban¬ 
nen  zu  können,  ohne  ihn  gleich  aus 
dem  Fenster  zu  werfen),  aber  jeder¬ 
zeit  ohne  großen  Aufwand  (aus¬ 
packen,  aufbauen,  Kabel  verlegen 
und  anschließen)  betriebsbereit  ist. 


Außerdem  sollte  er  bei  Nichtge¬ 
brauch  möglichst  wenig  Platz  bean¬ 
spruchen,  sonst  heißt  es  wieder: 
»Dein  Hobby  nimmt  ja  die  halbe 
Wohnung  ein.«  Es  reicht  ja,  wenn 
man  sich  diesen  Vorwurf  während 
seiner  »wissenschaftlich-schöpferi¬ 
schen«  Tätigkeit  anhören  muß.  Hier 
meine  Lösung!  Zugegeben  —  ich 
bin  in  der  glücklichen  Situation,  ein 
Zimmerchen  (Neubau-Kinderzim¬ 
mer  —  die  armen  Kleinen)  fast  für 
mich  allein  belegen  zu  dürfen.  Au¬ 
ßer  Gästebett  und  Kleiderschrank, 
und  das  bei  acht  Quadratmetern,  ist 
der  Rest  mein  Reich.  Ach  so,  da  die 
Tür  bei  der  »Größe«  des  Zimmers 


zweckmäßigerweise  nach  innen 
aufgeht,  muß  ich  auf  einen  weiteren 
Quadratmeter  verzichten. 

Würde  ich  nun  die  Geräte  auf  ei¬ 
ner  Tischplatte  aufbauen,  so  hätte 
ich  zwar  einen  beachtlichen  Ar¬ 
beitsplatz,  der  aber  ausschließlich 
dem  Heimcomputer  gewidmet  wä¬ 
re  (oder  Aufwand  wie  oben).  Also 
gab  es  für  mich  nur  die  in  den  Bil¬ 
dern  1  bis  4  dargestellte  Lösung. 

(Dieter  Wienands) 
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Das  Losungswort  lautet: 


Sicherlich  haben  Sie  es  schon  mehr  als  einmal  erlebt,  daß  Ihr  Computer  Ihnen 
Rätsel  aufgab  -  nämlich  immer  dann,  wenn  beim  Starten  eines  neu  eingetippten 
Programms  mal  wieder  gar  nichts  so  lief,  wie  es  laufen  sollte.  Warum  sollte  der 
Computer  also  nicht  auch  einmal  im  wörtlichen  Sinne  Rätsel  aufgeben?  ^ 


Gesucht  wird  ein  Pro¬ 
gramm  für  den  C  64  oder 
den  VC  20,  das  Kreuzwort¬ 
rätsel  in  einem  F ormat  von  20 
x  20  Kästchen  erstellt.  Dabei 
soll  auf  ein  von  Ihnen  erstell¬ 
tes  »Lexikon«  von  minimal 
100  Wörtern  zurückgegrif¬ 
fen  werden.  Zusätzlich  muß 
es  allerdings  möglich  sein, 
über  die  Tastatur  eine  An- 


Wir  suchen 

die  Anwendung  des 
Monats 

Anwendung  des  Monats,  was  ist 
das?  Nun,  Sie  haben  einen  Corn- 
modp'ic  64  oder  einen  VC  20  und 
versuchen  diesen  irgendwie; 
sinnvoll  'einzusetzen,  Unter  einer 
rsinnvollen  Anwendung  versteht 
Sie  64'er  Redaktion  alles,  was 


kann  sich  dabei  um  die  Berech¬ 
nung  der  Benzinkosten  für  Ihren 
Wagen  handeln,  um  ein  eigenes 
Tex  t  Verarbeitungsprogramm 
gehen,  sich  um  die  Verwaltung 
Ihrer-  Tiefkühltruhe  drehen  oder 
ein  ausgeklügeltes  Telefon-  und 
Adreßregister  sein . 

Setzen  Sie  Ihren  VC  20/C  G4 
mehr  oder  weniger  beruflich 
ein?  Auch ,  oder  vor  allem,  das  ist 


abrechnung,  Ihre  Lagerverwal¬ 
tung,  die  Bestellungen  auf  einem 
Cörnmodore-Heimcomputer 
durch?  So  spezielle  Anwendun¬ 
gen  wie. die  Berechnung  der  Sta¬ 
tik  von  selbstgezimmerten  Rega¬ 
len,  von  Klimadiagrammen  oder 
V  okabellernprogxämmen  für 

den  Schulunterricht  oder  die 
Zinsberechnung  bei  Krediten 
sind  ebenfalls  Themen,  die  mehr 
als  konkurrenzfähig  sind. 

Uns  ist  die  Anwendung  des 
Monats 


WC 

Schreiben  Sie  uns,  was  Sie  mit  Ih¬ 
rem  Computer  machen: 
Redaktion  64  er,  Aktion-  Anwen- 


’ 


zahl  von  Begriffen  einzuge¬ 
ben,  die  dann  auch  im  Rätsel 
auftauchen  sollten  und  im 
Lexikon  abgespeichert  wer¬ 
den.  Das  Einsetzen  der  er¬ 
sten  Begriffe  ins  Rätsel  soll 
rem  zufällig  erfolgen,  damit 
bei  mehreren  Programmläu¬ 
fen  auch  jedesmal  verschie¬ 
dene  Rätsel  erzeugt  werden. 

Beurteilt  wird  Ihr  Pro¬ 


gramm  nach  der  Geschwin¬ 
digkeit,  in  der  das  Kreuz¬ 
worträtsel  erstellt  wird,  wo¬ 
bei  die  Anzahl  der  schwar¬ 
zen  Kästchen  möglichst  ge¬ 
ring  sein  sollte.  Das  beste 
Kreuzworträtselprogramm 
ist  uns  einen  Tausender 
wert. 


Schicken  Sie  Ihr 
Programm  mit  ausführli¬ 
cher  Beschreibung  und  Pro¬ 
beausdruck  eines  erzeugten 
Kreuzworträtsels  an: 
Redaktion  64'er,  Stichwort 
Kreuzworträtsel,  Hans- 
Pinsel-Str.  2,  8013  Haar  bei 
München. 


Einmal  im  Monat  gibt  es  die 


Diese  nicht  einmalige  Gele¬ 
genheit  sollten  Sie  nutzen. 
Wie?  Schicken  Sie  uns  Ihr  be¬ 
stes,  selbst  erstelltes  Pro¬ 
gramm.  Bei  der  Art  des  Pro¬ 
gramms  sind  wir  nicht  wähler- 
risch. 

Sie  haben  ein  sehr  gutes 
(Schieß-,  Knobel-,  Denk-, 


Action-,  Abenteuer-)  Spiel  ge¬ 
schrieben-  emschicken! 

Sie  verfügen  über  ein  komfor¬ 
tables  Disketten-Kcpier-(Sor 
tier-)Programm  mit  einigen  au¬ 
ßergewöhnlichen  Leistungs- 
merkmalen:  emschicken! 

Sie  haben  das  Basic  um  einige 
sinnvolle  Befehle  erweitert: 
einschicken! 

Sie  arbeiten  mit  einem  selbst 


erstellten  Text  Verarbeitungs¬ 
programm,  einer  eigenen  Ta¬ 
bellenkalkulation,  einem  se¬ 
miprofessionellen  Datenver¬ 
waltungsprogramm;  einschik- 
ken! 

Sie  zeichnen  und  konstruieren 
mit  einem  selbsterstellten  Pro¬ 
gramm  in  hochauflösender 
Grafik:  einschicken! 

Wir  freuen  uns  über  jeden  Bei¬ 
trag  und  honorieren  mit  bis  zu 


*222.  Mark 


Aus  den  besten  Listings,  die 
veröffentlicht  werden,  sucht 
die  64'er  Redaktion  einmal  im 
Monat  das  »Listing  des  Mo¬ 
nats«  aus.  Alle  Listings,  die  im 
64’er  abgedruckt  sind,  wer¬ 
den  mit  100  bis  300  Mark  hono- 


Listing  des  Monat: 


riert.  Die  genaue  Vorgehens-  Schicken  Sie  Ihr  Listmgar 
weise  beim  Einsenden  von  Li-  daktion  64'er,  Superchance: 
stings  ist  in  »Wie  schicke  ich  Listing  des  Monats,  Hans- 
meine  Programme  ein?«  (letzte  Pinsel-Str.  2,  8013  Haar  bei 
Ausgabe)  beschreiben:  München 


'ikKüi* 


H^jnline.de 
nline.net 


Ausgabe  6 /Mai  1984 


Steuerzeichen 


—  rung  der  Steueraü^Z: 


M  “er  Memifizferun"  J  l^^^^lrigkeS 


Funktion 

CLR 
HOME 

REVERS  OM 
REVERS  OF 
IMST 
STOP 
RECHTS 

links 

UMTEH 
OBEN 
SCHWARZ 
WEISS 
ROT  ^ 
tuerkis 

VIOLETT 

gruen 

BLAU 

GELB 

:  ORANGE 

5  braun 
Z  hellrot 
grau  i 

T  GRAU  2 
J  hellgruen 

^  HELLBLAU 
GRAU  3 
-i  Fl 
F2 

^  F3 
^  P4 
F5 
F6 
f? 

■'i  r 

,.ni  FS 


VC  1515 

S  3  * 

SS fl  9 

*  a  * 

s  ■  a 

*  ii  »i 

*  *  » 

-  II  » 

=  11  I» 

s?i  a 

»  n  w 

*  «  s 

*  4  S 

S  M  * 

*  k  ® 


=  ii  II 

=  3  S 

=  Iil  ^ 

=  ;a  w 

*  fl  « 

rS  fl 

3  B  31 

*  53  « 

=  II 
=  3 


»  SS 


H 
SS 
4 
II 
4 

=  K  M 


■ 

a 

e 


Funktion 

CLR 

HOME 

REVERS  ON 
REVERS  OF 
INST 
STOP 
rechts 

lin^s 
unten 

OBEN 
SCHWÄR2 
WEISS 
ROT 

tuerkis 

VIOLETT 

gruen 
bl.hu 

GEL.B 
ORANGE 

braun 

hellrot 

grau  1 
GRAU  s 
hellgruen 
hellblau 
grau  3 
Fl 
F£ 

F3 
F4 
F5 
F6 
F? 

FS 


n  a 

II  « 

n  « 

n  a 


=  D 

=  m 

=  a 
=  3 
=  w 
=  m 
=  u 

=  3 
=  Q 
=  3 

=  R 


0  « 


=  ®  » 


Funktion 

CLP. 

HOME 

REVERS  OH 

REVERS  OF 

IMST 

STOP 

RECHTS 
LINKS 
UMTEH 
OBEN 
SCHWARZ 
WEISS 
ROT 

TUERKIS 

VIOLETT 

grueh 
BLAU 
GELB 
ORANGE 

braun 

HELLROl 

grau  1 


s 

a 

3 

3 

SS 

« 

a 

a 

# 

a 

ii 


MPS801 

n  a 
a  a 

a  * 

in  i« 

.  *  s 

:  nt  I* 
s  II  II 

s  »  ä 

-s  TJ  Jfl 

=  ■  l 

=  31  3 

=  m  '* 

«  t  « 

=  n  * 

=  ii  H 
=  33 
=  !il  f 
=  ',3  fl 
=  r.  «i 
=  ®  fl 
=  %  fl 
=  53  « 


£  ä  HELLGRUEN 
:  a  a  HELLBLAU 

*  ii  ■> 

*  n  * 

—  **  SS 

sss  0i  an 

.  SS  a  GRAU  3 

SS  0  4 

=  ■  3  Fl 

s  S  II 

=  a  3  F2 

Ä  m  a 

=  5  3  F3 

ss  K  M 

=  B  1  F4 

SS  11  W 

=  «•  a  F5 

ss  a  a 

=  31  |  F6 

ss  m  SI 

=  11  SS  F7 

=  ■  a  FS 

r  1  1 

Funktion 

CLR  : 

HOME  : 

REVERS  OM  - 
REUERS  OF  - 
INST 
STOP 

RECHTS  ; 

links 

UNTEN 

OBEN 

SCHWARZ 

WEISS 

ROT 

tuerkis 

UIOLETT 

gruen 
blau 
GELB 
ORANGE 

braun 
hellrot 
grau  1 

GRAU  2 
hellgruen 

HELLBLAU 
GRAU  3 
Fl 
F2 
F3 
F4 
F5 
F6 
F7 
F8 


VC  1520 

s  s 
S  s 
R  r 
I  F 


Q 

S 

P 

E 

£ 

:  □ 


T 

c 

3 

R 

Q 

P 

e 


<- 

-rf 


<r 

£ 

D 

t 


<x  A 
u  u 

u  V 

u)  W 

x  Z 

y  v 

:  Z  Z 

:  l  t 

=  e 


G 

K 

H 

L 


Großbuchstaben/ 

Grafikmodus 


Die  Steuerzeichen 


des  VC  1520  sind  in  den  Lstmgs 


unterstrichen,  da  der 


Pimter/Plotter  keine  reversen 


Grofir/Kleinbuch^aben 

Zeichen  darstellen  kann. 
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Inserentenverzeichnis 


Impressum 


Hier  gibt  es  Clubs 

Es  gibt  nun  auch  einen  C  64- 
Club  in  Hannover,  der  sich  vor¬ 
genommen  hat,  nicht  ein  Club 
von  vielen  zu  werden.  Er  will 
nicht  den  Fehler  machen,  mit 
deutscher  Gründlichkeit  einen 
Vorsitzenden,  einen  Beisitzer 
sowie  einen  Kassenwart  zu  wäh¬ 
len.  Clubstatuten  soll  ebenso  ein 
Fremdwort  sein  wie  Vereins¬ 
meierei.  Nur  eines  gibt’s  auch: 
einen  Mitgliedsbeitrag.  Dafür 
wird  auch  einiges  geboten.  Ein 
Clubmagazin  erscheint  zirka 
lOmal  jährlich  und  bringt  alles 
rund  um  den  C  64,  angefangen 
vom  Softwaretest  über  neue  Li- 
stings,  Kurse  in  Maschinenspra¬ 
che  bis  hin  zu  etlichen  interes¬ 
santen  Tips  und  Tricks  für  die 
Praxis.  Es  ist  auch  ein  Raum  an¬ 
gemietet,  in  dem  es  bei  Club¬ 
treffen  zum  Erfahrungsaus¬ 
tausch  oder  einfach  nur  zum  Klö¬ 
nen  kommt;  außerdem  gibt’s  ein 
Servicetelefon,  an  dem  sich  je¬ 
des  Mitglied  Rat  bei  Problemen 
holen  kann.  Außerdem  wird  ei¬ 
ne  Softwarebank  aufgebaut,  die 
allen  Mitgliedern  zur  Verfügung 
steht.  Durch  Programm-  und  Li- 
stmgtausch  von  selbsterstellter 
Software  wird  sie  automatisch 
ständig  erweitert.  Groß-  und 
Sammelbestellungen  werden 
gestartet,  um  durch  Mengenra¬ 
batte  für  die  Mitglieder  günsti¬ 
ger  einkaufen  zu  können.  Kon¬ 
taktadresse:  C-64  User  Club 
Germany,  Hildesheimer  Str. 
388,  3000  Hannover  81,  Tel. 
0511/863037 

Hardcopy 
auf  Tastendruck? 

Ich  möchte  mit  dem  VC  20  ei¬ 
ne  Hardcopy  machen,  Drucker- 
Type  1525.  Dazu  möchte  ich  ei¬ 
ne  der  Programmfunktions- 
Tastenfl-f8des  VC  20  benutzen. 
Es  geht  also  darum,  jederzeit  ei¬ 
ne  Hardcopy  zu  machen,  egal 
was  auf  dem  Bildschirm  ist,  oh¬ 
ne  jedesmal  den  Befehl  zur 
Hardcopy  im  Programm  zu 
schreiben.  (Bildschirmanzeige) 
=  drücke  Taste  fl-f8  =  Hardco¬ 
py.  Was  muß  ich  tun? 

Klaus  von  der  Beck 

Eine  solche  Hardcopy  auf  Ta¬ 
stendruck  in  jeder  Situation  wä¬ 
re  sicherlich  eine  wünschens¬ 
werte  Eigenschaft,  ist  aber  auf 
der  Basic -Ebene  nicht  zu  reali¬ 
sieren.  Eine  mögliche  Lösung 
per  Maschinenprogramm  ist 
durch  Eingriff  in  die  Tastaturab¬ 
frage  des  Computers  möglich. 
Der  Interruptvektor  muß  hierzu 
so  »verbogen«  werden,  daß  vor 
der  eigentlichen  Tastaturabfra¬ 
ge  ein  Sprung  in  eine  zu  schrei¬ 
bende  Maschinensprache-Rou¬ 
tine  erfolgt,  welche  die  Funk¬ 
tionstasten  abfragt  und  gegebe¬ 
nenfalls  ein  Hardcopy-Unter- 
progxamm  aufruft. 
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In  der  nächsten  Ausgabe  vom  18.  Mai  lesen  Sie 
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Rund  um 
die  Datasette 

Wir  haben  für  Sie  getestet,  was 
die  Original-Commodore-Data- 
sette,  Datasetten  von  anderen  Her¬ 
stellern  und  Interfaces  für  han¬ 
delsübliche  Kassettenrecorder  lei¬ 
sten  oder  was  sie  nur  versprechen. 

Exbasic  Level  II 

In  der  Reihe  der  Basic-  und 
Toolkit-Erweiterungen  für  den  C  64 
steht  das  Exbasic  Level  II  von  Inter¬ 
face  Age  auf  den  ersten  Plätzen. 
Wer  Exbasic  kennengelernt  hat, 
benutzt  es  bald  bei  jeder  Program¬ 
miertätigkeit.  Was  ist  so  interes¬ 
sant,  was  kann  Exbasic  Level  II?  Ist 
es  besser  als  Simons  Basic  oder  er¬ 
gänzen  sich  diese  beiden  Erweite¬ 
rungen? 


Epson-Drucker 
am  Commodore  64 


Commodore  116:  Der  VC  20-Nachfolger? 

Zu  dem  Erfolg  der  Commodore-Computer  trägt  in  nicht  geringem 
Maße  die  ausgezeichnete  Tastatur  bei.  Auch  der 
neue  Commodore  116  wird  damit 
ausgestattet  sein. 


föXG iw»» 


Die  Epson-Drucker  FX/RX  80 
zeichnen  sich  durch  ein  gutes 
Preis/Leistungsverhältnis  aus.  Was 
liegt  da  näher,  als  der  Wunsch,  sie 
auch  an  den  Commodore  64  anzu¬ 
schließen.  Wir  zeigen  Ihnen,  was 
Sie  dabei  beachten  müssen  und 
welche  Probleme  es  geben  kann. 

Zwei  VC  20  gekoppelt 

Können  zwei  VC  20  Daten  austau- 
schen  und  gar  mit-  und  gegenein¬ 
ander  spielen9  Es  geht,  sogar  re¬ 
lativ  einfach,  Wir  geben  eine  Bauan¬ 
leitung  für  ein  Interface  und  liefern 
auch  die  nötige  Treibersoftware 
dazu. 


Listings 


—  Anwendungen  des  Monats:  C  64 
führt  Lehrerkalender 

—  Listing  des  Monats:  Under¬ 
ground  —  ein  abenteuerliches 
Spiel  für  den  VC  20 

—  Analyse  von  Maschinenpro¬ 
grammen  leichtgemacht:  Logischer 
Disassembler  für  C  64/ VC  20  ver¬ 
folgt  Programmierlogik 

—  C  64-Programme,  die  sich  selbst 
starten:  der  Trick  mit  dem  Autostart 

—  Anwendungen:  Vokabellernpro¬ 
gramm,  Morsetrainer,  Text  Verar¬ 
beitung 

—  Spiele:  Hot  Wheels,  ein  Motor¬ 
radrennen  und  Ghost  Manor,  ein 
Abenteuerspiel 

—  außerdem  natürlich  wieder  viele 
Tips  und  Tricks  für  den  C  64  und 
VC  20 
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